'Finde heraus wieviele Nullen am Anfang sind (Anzahl_Nullen)
Do Until Left(Zahl, 1) <> "0"
     Anzahl_Nullen = Anzahl_Nullen + 1
     Zahl = Right(Zahl, (Len(Zahl) - 1))
Loop
 
'Rechne Zahl +1
Zahl = Zahl + 1
 
'Setze die Nullen vor die Zahl
For I = 1 To Anzahl_Nullen
     Zahl = "0" & Zahl
Next I