Zahl in ihre einzelnen Ziffer zerlegen

ok.
Der Ansatz ist ja grundsätzlich schon mal nicht schlecht.
Aber du kannst das ganz formal auch einfacher machen, wenn du 
beobachtest, dass

    23456 % 10           ->  6
    23456 / 10 -> 2345

     2345 % 10           ->  5
     2345 / 10 -> 234

      234 % 10           -> 4
      234 / 10 -> 23

       23 % 10           -> 3
       23 / 10 -> 2

        2 % 10           -> 2
        2 / 10 -> 0

Du brauchst also die 10-er Potenzen in Wirklichkeit gar nicht. Mit jeder 
Division durch 10, schneidest du am rechten Ende eine Stelle ab. Und was 
diese Stelle war, verrät dir eine vorhergehende Modulo Division. 
Einziger Nachteil: die Stellen fallen dir in umgekehrter Reihenfolge 
heraus. Aber so ein Problem ist dass dann auch wieder nicht.

Das alles ist natürlich nicht anderes als eine Binär-zu-Dezimal 
Konvertierung  wie man sie auch zur Ausgabe von Variablen als lesbare 
Dezimalzahl braucht und da wurde schon viel dazu geschrieben.

Aber ganz wichtig:

1

ziffer2= ziffer1 / 10e3;

Vorsicht mit Exponenten. Zahlen mit Exponenten sind generell von der Art 
Floating Point, was hier keinen Sinn macht und wohl kaum beabsichtigt 
war. Zweitens bedeutet das E bereits "mal 10 hoch Exponent", also ist 
10e3 = 10.0*10³ = 10000.0. Will man 1000.0 schreibt man 1e3.

ist es nich naheliegender und auch einfacher das ganze als String
zu sehen.
Da käme man mit MID$ ja schon zum Ziel.
Über Val(Mid$) auch zum Wert.

k.