Как найти кол-во положительных, отрицательных и нулевых элементов массива Z(N)

Option Explicit
Dim Z() As Variant
Dim n As Integer
Dim i As Integer
Dim k_o As Integer, k_p As Integer, k_0 As Integer
Private Sub Form_Load()
n=
End Sub

Option Explicit
'
'   Доктор Зильгерман
'
Private Function prim$()
    Const c = 30
    Dim j$(), f&, l&, Pol$, Otr$, Nul$
 
    '-----------------------------------------------Создаём последовательности
    Randomize Timer
    For f = 0 To c - 1
        prim = prim & " " & Fix(-10 + Rnd * 20)
    Next
    j = Split(Mid$(prim, 2))
    l = 2 ^ 31 - 1
    For f = 0 To UBound(j)
        If j(f) > 0 Then
            Pol = Pol & "," & j(f)
        ElseIf j(f) < 0 Then
            Otr = Otr & "," & j(f)
        Else
            Nul = Nul & "," & j(f)
        End If
    Next
    Pol = Mid$(Pol, 2): Otr = Mid$(Otr, 2): Nul = Mid$(Nul, 2)
    Cls
    Print "Весь массив = {" & Join(j, ",") & "} количество " & UBound(j) + 1
    Print "Положительные = {" & Pol & "} количество " & UBound(Split(Pol, ",")) + 1
    Print "Отрицательные = {" & Otr & "} количество " & UBound(Split(Otr, ",")) + 1
    Print "Нулевые = {" & Nul & "} количество " & UBound(Split(Nul, ",")) + 1
    
End Function
 
Private Sub Command1_Click()
    prim
End Sub

Private Sub Command1_Click()
    Dim Z() As Single, n As Integer, i As Integer
    Dim Z_p As Integer, Z_n As Integer, Z_z As Integer
    n = Val(InputBox("Введите размер массива", , 5))
    Randomize
    AutoRedraw = True
    ReDim Z(1 To n)
    For i = 1 To n
           Z(i) = Val(InputBox("Введите Z(" & i & ")", "", Int(Rnd * 20 - 10)))
           Print Z(i) & vbTab;
    Next i
    For i = 1 To n
        Select Case Z(i)
           Case Is > 0: Z_p = Z_p + 1
           Case Is < 0: Z_n = Z_n + 1
           Case Is = 0: Z_z = Z_z + 1
        End Select
    Next i
    Print
    Print "Kол-во положительных  " & Z_p
    Print "Kол-во отрицательных  " & Z_n
    Print "Kол-во нулевых        " & Z_z
End Sub