Ошибка в коде массива - VB

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

Задание состоит в следующем: Вычислить суму элементов массива К. Если она окажется положительной, приравнять к нулю все положительные элементы массива. Составил такой код, по примерам лекций:

Private Sub Command1_Click()
N = 5
Dim K(1 To N) As Long
Dim I As Integer
Dim E As Single
For I = 1 To N
K(I) = Val(Text1.Text)
Next I
E = 0
For I = 1 To N
E = E + K(I)
Next I
If E > 0 Then
For I = 1 To N
If K(I) >= 0 Then K(I) = 0
Next I
End If
Text2.Text = Str(E)
End Sub

Выбивает ошибку Constant expression required. Не могли бы, уважаемые опытные программисты, найти ошибку в моем коде?

Решение задачи: «Ошибка в коде массива»

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

                            Private Sub Command1_Click()
N = 5 'про это уже было сказано
Dim K(1 To N) As Long
Dim I As Integer
Dim E As Single
For I = 1 To N
  K(I) = Val(Text1.Text) 'Вычислить суМму элементов массива К. _
    Вы заполнили массив ОДНИМ И ТЕМ ЖЕ ЗНАЧЕНИЕМ, _
    к тому же не проверив, является ли оно числом
Next I
 
E = 0 'ЭТО БЫЛО НЕОБЯЗАТЕЛЬНО
For I = 1 To N
  E = E + K(I)
Next I 'сумму нашли правильно!
 
If E > 0 Then
  For I = 1 To N
    If K(I) >= 0 Then K(I) = 0
  Next I
End If
 
Text2.Text = Str(E) 'этого в задании не было
 
End Sub
                        