Найти произведение и количество положительных чисел в последовательности - VB

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

Вобщем вот задание : Вводится последовательность из N чисел. Найти произведение и количество положительных среди них чисел. Я , учитывыйте мои супер-навыки в программировании , а тем более VB написал программу

Private Sub Command1_Click()
Dim S, P, ai, N As String
S = 0: P = 1
N = Val(z1.Text)
For i = 1 To N
 A = Val(InputBox("Введите следующее число", "Ввод"))
 If ai > 0 Then
 P = P * ai
 S = S + 1
 z2.Text = Str(P)
 z3.Text = Str(S)
 Next
End Sub

z1, z2 ,z3 здесь это текстовые окна Бейсика куда выводится информация, но вот проблема ( а она наверное не одна) когда я включаю программу и произвожу нужные мне действия мне Vb пишет Next without For некст без фо , хотя это фо есть , так в чём проблема? ЗЫ может у меня ещё есть ошибки в алгоритме , может кто поможет, заранее спасибо)

Решение задачи: «Найти произведение и количество положительных чисел в последовательности»

textual
                            Листинг программы 
                        
                            A = Val(InputBox("Введите следующее число", "Ввод"))
If ai > 0 Then