En algun programa utilice esta funcion por ejemplo:
DeCeros(345,5) devuelve 00345
Fuciona solo con enteros pero con una pequeña modificacion puede servir con cualquier clase de numero.
Public Function DeCeros(Numero As Integer, Digitos As Integer) As String
Dim a$
a$ = CStr(Numero)
If Len(a$) < Digitos Then
DeCeros = String(Digitos - Len(a$), "0") & a$
Else
DeCeros = a$
End If
End Function
Espero que te funcione.
Cordialmente.........El Panzon
