Public Function Reverse(ByVal nZahl As Long) As String
  Dim sZahl As String
  Dim sResult As String
  Dim i As Integer
 
  ' Zahl in String umwandeln
  sZahl = CStr(nZahl)
 
  ' in umgekehrter Reihenfolge ausgeben
  For i = Len(sZahl) To 1 Step - 1
    sResult = sResult & Mid$(sZahl, i, 1)
  Next i
 
  Reverse = sResult
End Function

Dim nCount As Integer
 
nCount = Len(CStr(nZahl))
MsgBox "Anzahl Ziffern: " & CStr(nCount)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de