Variables con el cero adelande (0001)

[USUARIO_DE_SOFTWARE_LIBRE]

Hola, estoy haciendo un programa para generar listas de números. Por ejemplo: desde el 0001 hasta el 9999. Claro, muy fácil, con un bucle for se podría hacer, pero yo necesito que me ponga los ceros adelante. Poque si hago esto:

Código [Seleccionar] Expandir


dim i as long
i=0001

la variable i va a tener el valor 1 y yo quiero que tenga el valor 0001 ¿Cómo se podría hacer esto?
Espero que se alla entendido... Gracias a quién pueda ayudarme
saludetes

[WarGhost]

toma esta forma algo cutre:

Código [Seleccionar] Expandir

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

[USUARIO_DE_SOFTWARE_LIBRE]

Muchísimas gracias WarGhost me servirá de mucho

[CeLaYa]

podrias usar el format

Código [Seleccionar] Expandir


dim n as string
n = format (1, "0000")


[USUARIO_DE_SOFTWARE_LIBRE]

pero format no me sirver para usar con numeros

[CeLaYa]

  no entiendo muy bien que quieres hacer pero si pones

Código [Seleccionar] Expandir


dim n as string
n = Format(numero,"0000")


te dará como resultado "0001", ahora si lo que quieres es hacer operaciones con "n" solo necesitas usar "VAL"

Código [Seleccionar] Expandir


dim i as long
i = val (n)


esto te convierte la cadena "0001" a  1

[USUARIO_DE_SOFTWARE_LIBRE]

no entiendo muy bien que quieres hacer pero si pones

Código [Seleccionar] Expandir


dim n as string
n = Format(numero,"0000")


te dará como resultado "0001", ahora si lo que quieres es hacer operaciones con "n" solo necesitas usar "VAL"

Código [Seleccionar] Expandir


dim i as long
i = val (n)


esto te convierte la cadena "0001" a  1

Ahora que me puse a pensar mejor... Tenés razón se puedo usar también, lo voy a tener en cuenta
Gracias