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

Формулировка задачи:

Создать программу, рассчитывающую среднее значение из M случайных чисел в интервале от 100 до 200. Используя условную компиляцию, включать в расчет только те случайные числа, значения которых больше 120. Скомпилировать проект. Ребят помогите

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

textual
                            Листинг программы 
                        

                                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 &= "<br>" & vbCrLf & New String(Chr(9), 3) & More120 \ CntMore120
    End Sub
                        