Нахождение среднего арифметического элементов массива

Option Explicit
Dim mlngArrUBound As Long
Public Sub Main()
    Const conLongMaxVal As Long = &H10000
    Dim lngAry() As Long, lngCurVal As Long, dblAvr As Double, 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
        lngCurVal = lngCurVal + lngAry(lngX)
    Next lngX
    dblAvr = lngCurVal / (mlngArrUBound + 1&)
    Debug.Print "Среднее арифметическое суммы элементов массива = " & dblAvr
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_00f()
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.summa) / conti.size
End Sub