asi lo hago yo, me funciona perfecto para agregar ceros delante de un numero
Código:
'############################
' esta funcion sirve para darle
' el formato 0004 a un determinado
' numero. util por ejemplo en
' facturacion
' su llamado es asi: FormatoNum(14,5)
' retornaria esto: 00014
function FormatoNum(num,digitos)
dim largo, dif,x
largo = Len(Cstr(num))
dif = digitos - largo
if dif < 0 then exit function
if largo < digitos Then
x = String(dif,"0") & Cstr(num)
else
x = Cstr(num)
end if
FormatoNum = x
End Function