Найти сумму положительных элементов и сумму отрицательных элементов массива

Option Explicit
Dim S1 As Integer, S2 As Integer
Dim P1 As Double, P2 As Double
Dim kolS1 As Integer, kolS2 As Integer
Dim i As Integer, n As Integer
Dim A() As Integer
Private Sub Command1_Click()
Randomize 'Иницилизация генератора случайных чисел
Cls       'Очищаем форму
S1 = 0: S2 = 0: kolS1 = 0: kolS2 = 0: P1 = 1: P2 = 1
n = InputBox("Введите размер массива n", , 15)
ReDim A(1 To n) ' Размеры массива А -  n-строк, m-столбцов
  For i = 1 To n
       A(i) = Int(Rnd * 101 - 50) 'Заполняем массив случайными числами
       Print A(i); vbTab;
    If A(i) < 0 Then
       S1 = S1 + A(i)
       P1 = P1 * A(i)
       kolS1 = kolS1 + 1
    Else
       S2 = S2 + A(i)
       P2 = P2 * A(i)
       kolS2 = kolS2 + 1
    End If
  Next i
       Print
       Print "Количество отрицательных элементов массива  =  "; kolS1
       Print "Количество положительных элементов массива  = "; kolS2
       Print "Сумма отрицательных элементов массива  =  "; S1
       Print "Сумма положительных элементов массива  = "; S2
       Print "Произведение отрицательных элементов массива  =  "; P1
       Print "Произведение положительных элементов массива  = "; P2
  If kolS1 > kolS2 Then
       Print "Отрицательных элементов массива больше, чем положительных"
     ElseIf kolS1 = kolS2 Then
       Print "Количество отрицательных и положительных элементов массива равно "
     Else
       Print "Положительных элементов массива больше, чем отрицательных"
  End If
End Sub