Вычислить в числовом массиве a(n) суммы положительных и отрицательных элементов - VB

Option Base 1
 
Sub command1_click()
    Tmp$ = InputBox("Введите массив, разделяя числа пробелом")
    V = Split(Tmp$)
    MsgBox "Сумма полож=" & SumPos(V)
    MsgBox "Сумма отриц=" & SumNeg(V)
End Sub
 
Function SumPos(A) As Double
            For i% = 1 To UBound(A, 1)
                 If A(i%) > 0 Then SumPos = SumPos + A(i%)
            Next i%
End Function
 
Function SumNeg(A) As Double
            For i% = 1 To UBound(A, 1)
                 If A(i%) < 0 Then SumNeg = SumNeg + A(i%)
            Next i%
End Function