Определить так же среднее арифметическое чисел - VB

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

Помогите кто-нибудь...никак не могу понять в чем ошибка ..... Задание такое: Дан одномерный массив N произвольных чиселюВывести на экран в строчку(используя элемент упраления TextBox) все числа массива,в столбик(исп. элемент управления ListBox) числа массива, лежащие в диапозоне от - 78 до + 95,включая границы,или сообщить,что таких чисел нет.Определить так же среднее арифметическое чисел,меньшиз 25 и больших - 10,их колличество и сумму или сообщить,что таких чисел нет.Все результаты вывести на экран с соответствующей подсказкой ,используя элемент управления Label. Вот мой прог.код

Private Sub Command1_Click()
'Описание данных
Dim N As Integer 'размер массива
Dim Mas() As Single 'массив произвольных чисел
Dim I As Integer
Dim K As Integer
Dim Max As Single
Dim Min As Single
Dim Sum As Single
Dim Kol As Integer
Dim SP As String
'Ввод данных
N = InputBox("Введите размер массива")
ReDim Mas(1 To N) As Single
For I = 1 To N
Mas(I) = InputBox("Введите" + Str(I) + "-e число")
Next I
'Вывод исходных данных
SP = ""
For I = 1 To N
SP = SP + Str(Mas(I)) + " "
Next I
Text1.Text = SP
'Обработка данных
K = 0
For I = 1 To N
If Mas(I) > -78 And Mas(I) < 95 Then
List1.List(K) = Mas(I)
K = K + 1
Next I
End If
Else
Sum = 0
Kol = 0
For I = 1 To N
If Mas(I) >= -10 And Mas(I) <= 25 Then
Sum = Sum + Mas(I)
Kol = Kol + 1
End If
Next I
'Вывод данных
If Kol = 0 Then
Text3.Text = "Таких нет"
Else
Text3.Text = Sum
Text4.Text = Kol
Text5.Text = Sum / Kol
End If
End Sub

но там ошибку выдает "next without for"!!!!!!!!!Что делать?помогите пожалуйста!)))

Решение задачи: «Определить так же среднее арифметическое чисел»

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

                            Private Sub Command1_Click()
Dim N As Integer
Dim Mas() As Single
Dim I As Integer
Dim Sum As Single
Dim Kol As Integer
Dim SP As String
 
N = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г°Г*Г§Г¬ГҐГ° Г¬Г*Г±Г±ГЁГўГ*")
ReDim Mas(1 To N) As Single
    For I = 1 To N
    Mas(I) = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ" + Str(I) + "-e Г·ГЁГ±Г«Г®")
Next I
 
For I = 1 To N
    SP = SP + Str(Mas(I)) + " "
    Text1.Text = SP
Next I
 
 
For I = 1 To N
    If Mas(I) > -78 And Mas(I) < 95 Then
        List1.List(K) = Mas(I)
    Else
        Sum = 0
        Kol = 0
    End If
Next I
 
For I = 1 To N
    If Mas(I) >= -10 And Mas(I) <= 25 Then
        Sum = Sum + Mas(I)
        Kol = Kol + 1
    End If
Next I
 
If Kol = 0 Then
    Text2.Text = "Г’Г*ГЄГЁГµ Г*ГҐГІ"
Else
    Text2.Text = Sum
    Text3.Text = Kol
    Text4.Text = Sum / Kol
End If
End Sub
                        