Найти количество элементов массива, которые меньше или равны 10

        Dim b As Long = 0
        Dim a() As Long = {5, 235, 25, 2, 5, 7, 368, 1, 10, 6}
        For i As Long = 0 To a.Count - 1
            If a(i) >= 10 Then
                b += 1
            End If
        Next
 
        MsgBox(b)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Mass(0)
        Dim N = 0
 
        If TextBox1.Text = "" Then
            ReDim Mass(0)
        Else
            ReDim Mass(CInt(TextBox1.Text))
        End If
 
        If Mass.Length - 1 >= Split(TextBox2.Text, " ").Length - 1 Then
            For i = 0 To Split(TextBox2.Text, " ").Length - 1 Step 1
                Mass(i) = Split(TextBox2.Text, " ")(i)
                MsgBox(Mass(i))
            Next
        Else
            For i = 0 To Mass.Length - 1 Step 1
                Mass(i) = Split(TextBox2.Text, " ")(i)
                MsgBox(Mass(i))
            Next
        End If
 
        For i = 0 To Mass.Length - 1 Step 1
            If Mass(i) <= 10 Then
                N = N + 1
            End If
        Next
 
        TextBox3.Text = N
        N = 0
    End Sub