Преобразовать исходный массив, вычитая из каждого элемента среднее значение

Option Explicit
Private Const mconUBound As Long = 14&
Public Sub Main()
    Dim arydblBuff(14) As Double, lngX As Long, dblCounter As Double, lngCounter As Long
    Randomize
    For lngX = 0& To mconUBound
        arydblBuff(lngX) = Rnd
    Next lngX
    Debug.Print vbNewLine & "Исходный массив"
    OutPutArray arydblBuff()
    For lngX = 0& To mconUBound
        If (arydblBuff(lngX) > 0#) Then
            dblCounter = dblCounter + arydblBuff(lngX)
            lngCounter = lngCounter + 1&
        End If
    Next lngX
    If (lngCounter <> 0&) Then
        dblCounter = dblCounter / lngCounter
        For lngX = 0& To mconUBound
            arydblBuff(lngX) = arydblBuff(lngX) - dblCounter
        Next lngX
    End If
    Debug.Print vbNewLine & "Результирующий массив"
    OutPutArray arydblBuff()
End Sub
Private Sub OutPutArray(ByRef dblBuff() As Double)
    Dim lngX As Long
    For lngX = 0& To mconUBound
        Debug.Print dblBuff(lngX)
    Next lngX
End Sub

Private Sub CommandButton1_Click()
 Dim N, K, S, F, M, I As Integer
Dim A(100) As Integer
N = Cells(2, 1)
K = 0
S = 0
For I = 1 To N
A(I) = Cells(I + 1, 2)
Next I
For I = 1 To N
If A(I) Mod 2 = 0 Then
K = K + 1
S = S + A(I)
End If
If K = 0 Then
F = 0
Else
F = S / K
End If
If A(I) <= 1 Then
M = -1
Else
M = F
End If
Next I
For I = 1 To N
Cells(I + 1, 3) = A(I) + F
Next I
Cells(2, 5) = F
End Sub
Private Sub CommandButton2_Click()
Call Макрос1
End Sub

Dim N As Integer, K As Integer, S As Integer, F As Integer, M As Integer, I As Integer

Dim N%, K%, S%, F%, M%, I%

Option Explicit
Public N%, K%, S%, F%, M%, I%