Определить, в каком из одномерных массивов А, В и С одинаковой размерности n наибольшее количество положительных элементов

Option Explicit
Dim A() As Integer, B() As Integer, C() As Integer
Dim polA As Integer, polB As Integer, polC As Integer
Dim i As Integer, n As Integer
Private Sub Command1_Click()
Randomize 'Иницилизация генератора случайных чисел
Cls       'Очищаем форму
n = 15 'InputBox("Введите размер массивов", , 10)
ReDim A(n), B(n), C(n) ' Размеры массивoв  n-строк
polA = 0: polB = 0: polC = 0
For i = 1 To n
    A(i) = Int(Rnd * 101 - 50) 'Заполняем массивы случайными числами
    B(i) = Int(Rnd * 101 - 50) 'Заполняем массивы случайными числами
    C(i) = Int(Rnd * 101 - 50) 'Заполняем массивы случайными числами
    If A(i) > 0 Then polA = polA + 1
    If B(i) > 0 Then polB = polB + 1
    If C(i) > 0 Then polC = polC + 1
Next i
'Процедура вывода на печать
Print "Массив  A";
Print: Print "Число положительных элементов массива  A ="; polA
For i = 1 To n
    Print A(i); vbTab;
Next i
Print: Print "Массив  B";
Print: Print "Число положительных элементов массива  B ="; polB
For i = 1 To n
    Print B(i); vbTab;
Next i
Print: Print "Массив  C";
Print: Print "Число положительных элементов массива  C ="; polC
For i = 1 To n
    Print C(i); vbTab;
Next i
Print
If polA > polB And polA > polC Then Print "Больше всего положительных элементов в массиве A": Exit Sub
If polB > polC And polB > polA Then Print "Больше всего положительных элементов в массиве B": Exit Sub
If polC > polA And polC > polB Then Print "Больше всего положительных элементов в массиве C": Exit Sub
If polA = polB And polA = polC Then Print "Число положительных элементов во всех массивах равно": Exit Sub
If polA = polB Then Print "Число положительных элементов в массивах A и B максимально и равно"
If polB = polC Then Print "Число положительных элементов в массивах B и C максимально и равно"
If polA = polC Then Print "Число положительных элементов в массивах A и C максимально и равно"
 
End Sub