Numero=123
Numero=Cstr(Numero)
Longitud=Len(numero)
Diferencia=4-Longitud
ceros=string(Diferencia,"0")
Numero=ceros&Numero
Ya despues lo puedes vconvertir a Integer o Double de ser necesario
Numero=CDbl(Numero)
Numero=Cint(Numero)
Saludos
<center>
<a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a>
</center>