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

'Объявление глобального массива
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