Нахождение среднеарифметического значения от 18 до 105, кратного 6

Const M = 105
Dim i As Long, Sr As Single
For i = 17 To M Step 2
    Sr = (i + M) / 2
    If Sr Mod 6 = 0 Then Print Sr
Next

Sub Test()
      s#=0
      n#=0
      for i%=18 to 105 step 6
           s#=s#+Cdbl(i%)
           n#=n#+1
      Next i%
      avg#=s#/n#
      Debug.print avg#
End sub

Function nAvg1(nStart As Long, nFinish As Long, nStep As Long) As Double
    Dim i As Long, s As Double, n As Long
    For i = nStart To nFinish
        If i Mod nStep = 0 Then
            s = s + i
            n = n + 1
        End If
    Next i
    If n > 0 Then nAvg1 = s / n
End Function

Function nAvg2(nStart As Long, nFinish As Long, nStep As Long) As Double
    Dim i As Long, s As Double, n As Long
    For i = -Int(-nStart / nStep) * nStep To nFinish Step nStep
        s = s + i
        n = n + 1
    Next i
    If n > 0 Then nAvg2 = s / n
End Function

Function nAvg3(nStart As Long, nFinish As Long, nStep As Long) As Double
    Dim i1 As Long, i2 As Long
    i1 = -Int(-nStart / nStep) * nStep
    i2 = Int(nFinish / nStep) * nStep
    If i2 >= i1 Then nAvg3 = (i1 + i2) / 2
End Function