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

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