Zahl mit Nullen auffüllen !!!

Sub NullWert()
Dim c As Range
Dim laenge As Integer
Dim maxNull As Byte
Dim i As Integer
For Each c In Selection
laenge = Len(c)
If c  "" And IsNumeric(c) Then
c.Select
maxNull = laenge - 10
For i = maxNull To 1 Step -1
c = c & "0"
Next i
ActiveCell.FormulaR1C1 = c
End If
Next c
End Sub

1. Wie muss ich den Code anpassen, dass er mir die Ausgangszahl (z.B. 5555) mit Nullen anstatt hinten (5555000000), vor die Zahl (0000005555) auffüllt?
2. Wie erhalte ich zusätzlich eine Box, die den Anwender abgefragt, wie viele Stellen die Zahl haben soll, d.h. der Anwender soll z.B. 5 stellen eintragen können wenn es sich um eine PLZ handelt?
Danke im Voraus.
MFG
Zoran