toma esta forma algo cutre:
Código [Seleccionar]
Private Sub Form_Load()
Dim var As String * 4
Dim i As Integer
For i = 1 To 9999
var = StrReverse(i)
var = StrReverse(Replace(var, " ", "0"))
MsgBox var
Next i
End Sub