Вычислить среднее арифметическое четных элементов массива С(10)

Option Explicit
Private Const mconArrUBound As Long = 10&
Public Sub Main()
    Dim lngX As Long, C(mconArrUBound) As Long, lngCurVal As Long, lngCouter As Long
    Const conLongMaxVal As Long = &H10000
    Randomize
    For lngX = 0& To mconArrUBound
        lngCurVal = Rnd * conLongMaxVal
        If ((Val(Rnd * 2&) = 1&) And (lngCurVal <> conLongMaxVal)) Then
            lngCurVal = lngCurVal * (-1)
        End If
        C(lngX) = lngCurVal
    Next lngX
    Debug.Print vbNewLine & "Изначальный массив:"
    OutPuArray C()
    lngCurVal = 0&
    For lngX = 0& To mconArrUBound
        If (lngX Mod 2& = 0&) Then
            lngCurVal = lngCurVal + C(lngX)
            lngCouter = lngCouter + 1&
        End If
    Next lngX
    If (lngCouter <> 0&) Then
        Debug.Print "Среднее арифметическое = " & lngCurVal / lngCouter
    Else
        Debug.Print "Деление на ноль."
    End If
End Sub
Private Sub OutPuArray(ByRef ArrayPlaceHolder() As Long)
    Dim lngX As Long
    For lngX = 0& To mconArrUBound
        Debug.Print ArrayPlaceHolder(lngX)
    Next lngX
End Sub