Рассчитать среднее значение из M случайных чисел в интервале от 100 до 200

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim n As Integer = 0
        Dim itog As Double = 0
        Dim m As Integer = InputBox("Введите сколько будет чисел для вычисления ср. значения")
        For i = 1 To m
            Dim mm As Integer = InputBox("Введите число")
            If mm > 120 And mm < 200 Then   'Проверка чисел на диапозон
                n = n + mm   'Суммируем, если число устраивает
            Else : MsgBox("Значение не входит в диапозон разрешаемо-вводимых чисел")
            End If
        Next
        itog = n / m   'находим среднее из введеных чисел
        MsgBox(itog)
    End Sub
End Class

    Dim R As New Random
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim M As Integer = InputBox("Введите сколько будет чисел для вычисления ср. значения")
        TextBox1.Text = ""
        Dim All, More120, CntMore120 As Integer
        For I As Integer = 0 To M - 1
            All = R.Next(100, 201)
            TextBox1.Text &= All & New String(Chr(9), 3)
            If All > 120 Then
                More120 += All
                CntMore120 += 1
                TextBox1.Text &= All
            Else
                TextBox1.Text &= "-"
            End If
            TextBox1.Text &= vbCrLf
        Next
        TextBox1.Text &= "____________________________________" & vbCrLf & New String(Chr(9), 3) & More120 \ CntMore120
    End Sub