Das war das Was mir gefehlt hatte:

Code:
S = Str(wert)                                           ' Wandle Wert in String
    L = Len(s)                                              ' ermittle Länge des Strings
    If L > Dekaden Then L = Dekaden                         ' Verhindern dass mehr Anzeigen berechent werden
                                                            ' als definiert und vorhanden sind.


    For X = 1 To L
      Pos = L - X
      Pos = Pos + 1                                         ' Beginne mit den Einer Stellen (rechts)
      Z = Mid(s , Pos , 1)
Vielen Dank [-o<
Grüßle