Составьте программу нахождения произведения чисел

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()
    lngCurVal = 0&
    For lngX = 0& To mlngArrUBound
        If (lngAry(lngX) < 0&) Then
            If (lngCurVal = 0&) Then
                lngCurVal = lngAry(lngX)
            Else
                lngCurVal = lngCurVal * lngAry(lngX)
            End If
        End If
    Next lngX
    Debug.Print "Произведение отрицательных элементов массива = " & lngCurVal
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_00c()
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.filter("x -> x<0").production
End Sub