Dim ans2 As String
Dim x As Integer
Dim i As Long

x = Text1

For i = Text1 To Text2
ans2 = LPAD(x, Text3)
x = x + 1
Next

MsgBox "Finsihed", , "End"


Why isn't this working ?

text 1 = starting number
text 2 = ending number
text 3 = number of 0's to pad with