Visual Basic.Массив

[SelfishTroll]

Задача: Дан одномерный массив А размерности N. Найти сумму положительных элементов и их количество.Знаю,что в чем-то ошибка,но не понимаю,где именно

Private Sub CommandButton1_Click()
Dim A() As Single, S As Single
Dim I As Integer, N As Integer
N = Val(TextBox1)
ReDim A(I)
For I = 1 To N
A(I) = InputBox("введи массив А")
Next I
If A(I) > 0 Then
S = S + A(I)
End If
TextBox2 = Str(S)
End Sub

[doober]

Есть

N = Val(TextBox1) 
 ReDim A(I)

Должно быть

N = Val(TextBox1) 
 ReDim A(N)