De 1 hasta el numero que quieras... digamos 100:
For i = 1 to 100
'Codigo para el numero i
Next i
Si quiero el numero en el formato que muestras usarías: Format(i, "00")
Ya dependerá que quieres hacer con ese numero, si quieres verlo en pantalla en algun control, quieres guardarlo...¿?
Saludos