Дана последовательность из 8 чисел (VB6.0)

sub main()
    dim a(8)
    for i=1 to 8
        a(i) = int(inputbox("введите число"))
    next
    sum_kv_otr = 0
    sum_pol = 0
    for i=1 to 8
        if a(i)<0 then
            sum_kv_otr = sum_kv_otr + a(i)*a(i) ' не помню, как возводит vba  в квадрат
        else
            sum_pol = sum_pol*a(i)
        end if
    next
    msgbox("Сумма квадратов отриц = " & sum_kv_otr)
    msgbox("Произведение положит = " & sum_pol)
end sub

'''''''''''''Text1.MultiLine = True
Private Sub Command1_Click()
Dim a
Dim i As Integer
Dim P, S, tr As Boolean
Dim sstr As String, pstr As String
P = 1: S = 0: tr = False
For i = 1 To 8
a = Val(InputBox("вводим  число" & i))
If a < 0 Then S = S + a ^ 2
If a > 0 Then
P = P * a
If tr = False Then tr = True
End If
Next i
 
If S = 0 Then
sstr = "отрицательных элементов нет"
Else
sstr = "сумма квадратов отрицательных элементов" & _
vbCrLf & " S = " & S
End If
 
If tr = False Then
pstr = "положительных элементов нет"
Else
pstr = "произведение положительных элементов" & _
vbCrLf & " P = " & P
End If
 
Text1.Text = sstr & _
vbCrLf & "-----------------------" & _
vbCrLf & pstr
End Sub