Hi Mipe,
Beispiel für 5 Stellen, für andere entsprechend anpassen
dim zahl, neuZahl
Select Case zahl
Case zahl > 1000
neuZahl = "0" & zahl
case zahl < 1000 AND > 99
neuZahl = "00" & zahl
case zahl < 100 AND > 9
neuZahl = "000" & zahl
case zahl < 10
neuZahl = "0000" & zahl
end select
Gruß
Netghost