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

Private Sub mnuAboutProg_Click()
MsgBox "10-АС,29.12.10" _
& vbCrLf & "Лабораторная работа №8" _
& vbCrLf & "Одномерный массив. Упорядочение" _
& vbCrLf & "Вариант №2"
End Sub
 
Private Sub pMnuRezult_Click()
Dim nA As Integer, i As Integer
Dim Sum As Double
Dim Pr As Double
Sum = 0
Pr = 1
Open "E:\08\massIn.txt" For Input As #1
Open "E:\08\massOut.txt" For Input As #2
Input #1, nA
ReDim A(nA) As Integer
Randomize
For i = 1 To nA
A(i) = Rnd
List1.AddItem Str$(A(i))
Next i
For i = 1 To nA
If A(i) > 0 And A(i) < 3 Then
Sum = Sum + A(i)
Pr = Pr * A(i)
i = i + 1
End If
Next i
Sumlbl.Caption = Str$(Sum)
Prlbl.Caption = Str$(Pr)
Print
End Sub
 
Private Sub pMnuStop_Click()
End
End Sub

A(i) = Rnd