Описать рекурсивную функцию DigitCount(S) целого типа

Private Function DigitCount(S As String) As Long
    Static pt As Long
    pt = pt + 1
    If pt <= Len(S) Then DigitCount = DigitCount(S) - (Mid$(S, pt, 1) Like "#")
    pt = pt - 1
End Function

Function DigitCount1(S As String) As Long
    Static pt As Long
    pt = pt + 1
    If pt < 11 Then DigitCount1 = DigitCount1(S) + Len(S) - Len(Replace$(S, pt - 1, ""))
    pt = pt - 1
End Function

Private Function DigitCount(s As String) As Long
    Static pt As Long, i As Long
    Dim l As Long
    If i < 10 Then pt = InStr(pt + 1, s, Chr$(i + &H30)): i = i - (pt = 0): l = -(pt > 0): DigitCount = DigitCount(s) + l
End Function

Private Function DigitCount(s As String) As Long
    Static pt As Long, i As Long
    If i < 10 Then pt = InStr(pt + 1, s, Chr$(i + &H30)): i = i - (pt = 0): _
                   DigitCount = -(pt > 0): DigitCount = DigitCount + DigitCount(s)
End Function

Private Function DigitCount(S As String, Optional pt As Integer = 9) As Long
    If pt >= 0 Then DigitCount = DigitCount(S, pt - 1) + UBound(Split(S, CStr(pt)))
End Function

Function digCounter(S As String, Optional p As Long = 1) As Long
      If Len(S) = p Then
         digCounter = 0
      Else
         d% = Asc(Mid$(S, p, 1))
         If d% >= 48 And d% <= 57 Then
            digCounter = 1 + digCounter(S, p + 1)
         Else
            digCounter = digCounter(S, p + 1)
         End If
      End If
End Function

Function digCounter(S As String, Optional p As Long = 1) As Long
      If Len(S) = p Then
         digCounter = 0
      Else
         If IsNumeric(Asc(Mid$(S, p, 1))) Then
            digCounter = 1 + digCounter(S, p + 1)
         Else
            digCounter = digCounter(S, p + 1)
         End If
      End If
End Function

Function digCounter(ByVal S As String) As Long
    Dim f&
    digCounter = Len(S)
    For f = 0 To 9
        S = Replace(S, CStr(f), "")
    Next
    digCounter = digCounter - Len(S)
End Function

Function DC(S As String, Optional p As Long = 1) As Long
  If Len(S) >= p Then DC = DC(S, p + 1) - IsNumeric(Mid$(S, p, 1))
End Function

Function digCounter(S As String, Optional p As Long = 0) As Long
      If Len(S) = p Then
         digCounter = 0
      Else
         d% = Asc(Mid$(S, p+1, 1))
         If d% >= 48 And d% <= 57 Then
            digCounter = 1 + digCounter(S, p + 1)
         Else
            digCounter = digCounter(S, p + 1)
         End If
      End If
End Function