Also ich haette es so spontan gemacht:

Zunächst die ganze Zahl als String umwandeln:
Zahl_String= Str(Zahl)


Laenge des Strings ermitteln:
LZ = Len(Zahl_String)


Einzelne Zeichen aus Gesamtstring ermitteln:
For A = 1 To LZ
EZ(a) = Mid( Zahl_String, A , 1)
Next A


Einzelne Zeichen in numerische Werte umwandeln:
For A = 1 To LZ
Ew(a) = val(EZ(a))
Next A

Und somit haste die einzelnen Ziffern zur weiteren Verwendung.

Oder gab's einen direkten Befehl? Keine Ahnung, einfach die Bascom-Hilfe studieren. Da steht alles.