Из 10 введенных чисел возвести в квадрат отрицательные, а положительные суммировать - VB

Option Explicit
 
Dim A(1 To 10) As Double
Dim I As Double
Dim X As Double
Dim Y As Double
Dim Z As Double
 
Private Sub Command1_Click()
 
If I < 10 Then
 
I = I + 1
 
A(I) = Val(Text1.Text)
 
Text1.Text = ""
 
Call siu
 
Else
 
 Call NewSub
   
   End If
 
End Sub
 
Private Sub siu()
 
If A(I) > 0 Then
    
    X = X + A(I)
 
End If
If A(I) < 0 Then
        
        Y = Y + A(I)
        
        End If
End Sub
 
Sub NewSub()
 
MsgBox ("Сумма положительных чисел =  " & X)
 
Z = Y * Y
 
 
MsgBox ("Отрицательные числа возведенные в квадрат = " & Z)
 
End Sub
 
Sub Non()
 
I = 0
X = 0
Y = 0
Z = 0
End Sub
 
Private Sub Form_Load()
Text1.Text = ""
Form1.Caption = "Тестовая программа"
Command1.Caption = "Вычислить"
End Sub