Посчитать произведение положительных элементов массива

'Объявление глобального массива
Dim A!(25), sum!, pr!, kolp!
 
'Процедура нажатия кнопки Обработка
Private Sub cmdObr_Click()
    sum = 0
    kolp = 0
    For i = 1 To 25
        
        If A(i) < 0 Then
            sum = sum + -(A(i) * A(i)) * 2
        End If
        
 
        
'Произведение положительных элементов
        If A(i) > 0 Then
            pr = A(i) * A(i)
            kolp = kolp + 1
        End If
    Next
    Text2.Text = sum
    Text3.Text = kolp
    Text4.Text = pr
End Sub
 
 
 
'Процедура нажатия кнопки Рандомный ввод
Private Sub cmdRandv_Click()
    For i = 1 To 25
        A(i) = Rnd() * 5
        If Rnd() < 0.5 Then A(i) = -A(i)
    Next
End Sub
 
'Процедура нажатия кнопки Выход
Private Sub cmdVihod_Click()
    If MsgBox("Вы действительно хотите выйти?", 36, "Выход") = vbYes Then End
End Sub
 
'Процедура нажатия кнопки Ручной ввод
Private Sub cmdRuchv_Click()
Dim i!
    For i = 1 To 25
        Do
            B = "Ввод А(" & i & ")"
                 A(i) = CSng(InputBox("Введите число(в диапазоне от -5 до 5)", B))
        Loop While A(i) < -5 Or A(i) > 5
    Next
End Sub
 
Private Sub cmdVivod_Click()
For i = 1 To 25
Text1(i - 1).Text = A(i)
Next
End Sub
 
Private Sub Form_Load()
Randomize
End Sub

pr = 1
For i = 1 To 25
  '...
  If A(i)>0 then
    pr = pr * A(i)
    kolp = kolp + 1
  '...
Next
If kolp > 0 then text4 = pr else text4 = "n/a"