Danke


Die Idee hatte ich auch schon, nur haber ich leider etwas vertauscht, ich habe anstatt bhunderter = hunderter, hunderter = bhunderter gemacht und mich dann gewundert warum er 0 ausgiebt.

Also jetzt funktionierts. Hier noch einmal denn Code der Funktioniert:
Code:
Dim Einer As Word
Dim Zehner As Word
Dim Hunderter As Word
Dim Tausender As Word
Dim A As Word

A = 8956

Einer = A Mod 10
A = A - Einer
A = A / 10
Zehner = A Mod 10
A = A - Zehner
A = A / 10
Hunderter = A Mod 10
A = A - Hunderter
A = A / 10
Tausender = A Mod 10

Print tausender         '8
Print hunderter         '9
Print zehner             '5
Print einer                '6
In Tausender, Huderter,zehner,einer stehen dann die einzelnen Zahlen.

Nochmals Danke an alle die geholfen haben. Schönen Tag noch (ist ja nicht mehr lang)

mfg Luca
mfg Luca