Нахождение количества элементов последовательности, больших нуля

Option Explicit
Dim mlngArrUBound As Long
Public Sub Main()
    Const conLongMaxVal As Long = &HFF
    Dim lngAry() As Long, lngCurVal As Long, lngVal As Long, lngX As Long
    mlngArrUBound = CLng(InputBox("Введите верхнюю границу массива"))
    ReDim lngAry(mlngArrUBound)
    Randomize
    For lngX = 0& To mlngArrUBound
        lngCurVal = Rnd * conLongMaxVal
        If ((Val(Rnd * 2&) = 1&) And (lngCurVal <> conLongMaxVal)) Then
            lngCurVal = lngCurVal * (-1)
        End If
        lngAry(lngX) = lngCurVal
    Next lngX
    OutPutArray lngAry()
    For lngX = 0& To mlngArrUBound
        If (lngAry(lngX) > 0&) Then lngVal = lngVal + 1&
    Next lngX
    Debug.Print "Количество элементов массива больше нулю = " & lngVal
End Sub
Private Sub OutPutArray(ByRef ArrayPlaceHolder() As Long)
    Dim lngX As Long
    Debug.Print "Текущие элементы массива:"
    For lngX = 0& To mlngArrUBound
        Debug.Print "" & ArrayPlaceHolder(lngX)
    Next lngX
End Sub

Sub Test_00b()
Dim conti As aIter
    Set conti = New Container
    conti.Init Array(1, 2, 30, -4, 5, -6, 7, 8, 9, 1, -11, 120, 3)
    Debug.Print conti.countIf("x -> x>0")
End Sub