Visual Basic - numero con ceros a la izquierda (loteria)

Hola, pues resulta que estoy haciendo un programa que da numeros de loteria, y no se como puedo hacer para que valla sumando un numero cada vez que lo ejecuto

00001
+1 = 00002
+1 = 00003
..... ..... .....

Alguien me puede ayudar? Muchas gracias

Hola,
prueba con este codigo

dim cad as string

dim inc as integer

private sub command1_click()
inc=0

inc=inc+1

' cad = izquierda(cadena,numero de caracteres a extraer)
cad=right("00000" & cstr(inc),5)
end sub

'cad = "00001"
'cad = "00002"
'cad = "00003"

Buenas, te paso una forma de hacerlo.

Private Sub Command1_Click()
ceros Text1
End Sub

Sub ceros(UnTexbox As Object) ' rutina para poner ceros y sumar 1
A = UnTexbox.Text ' cogemos el contenido del text
If A <> "" And Len(A) < 6 Then ' si esta vacio o es mas largo de 6


For i = 1 To 5 ' recorremos uno a uno el contenido del text
If Mid(A, i, 1) > 0 Then Exit For ' si encuentra un numero mayor a 0 sale
Next
B = Mid(A, i) ' captamos el numero
B = Val(B) + 1 ' transformamos a numerico y le sumamos uno
C = Len(B) ' contamos

For i = 1 To 5 - C ' llenamos la variable de ceros
D = D & "0"
Next


UnTexbox.Text = D & B ' devolvemos el valor
Else
UnTexbox.Text = "00001"
End If

UnTexbox.SetFocus

End Sub