Generar un numero cada vez que se envie un form

[lexus]

una ves teniendo tu numero por ejemplo 1 con esta funcion te lo devuelve 0001 o la cantidad de ceros que necesites

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




su llamado es asi: FormatoNum(1,5)
retornaria esto: 00001

ojala te sirva.