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

'''''''''''''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