Functie maken in vba excel lukt niet

[kikker1]

beste

Zou iemand me kunnen helpen bij het maken van deze functie, ik wil namelijk een functie maken in vba excel die de cijfers op de even posities van een getal optelt(2e,4e,6e).
vb. getal 13487--> som 3 en 8=11

ik heb dit al:

Function aantalCijfers(getal As Integer) As Integer
Dim alsTekst As String
alsTekst = CStr(getal)
aantalCijfers = Len(alsTekst)

Dim i As Integer
For i = 1 To Len(trim(Cstr(getal))
aantalCijfers= aantalCijfers + Mid(getal, i, 1)


Next i

 

[VenA]

Probeer het zo eens

Function VenA(r As Range)
For j = 1 To Len(r)
    If j Mod 2 = 0 Then VenA = VenA + Val(Mid(r, j, 1))
Next j
End Function

 

[HSV]

bv.

Function aantalcijfers(r As Range) As Long
Dim i As Long
  For i = 2 To Len(r) Step 2
     aantalcijfers = aantalcijfers + Val(Mid(r, i, 1))
  Next i
End Function

 

[kikker1]

Function VenA(r As Range)
Dim j as integer
For j = 1 To Len(r)
    If j Mod 2 = 0 Then VenA = VenA + Val(Mid(r, j, 1))
Next j
End Function

zo werkt het

dankjewel mannen:d