Hola amigo, mira esta función tan maja:
Código:
'___________________________________________
Function Formato(nNum, nLong)
'El Format de toda la vida con longitud de cadena
'¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Formato = String(nLong - Len(CStr(nNum)), "0") & CStr(nNum)
End Function
Ejemplo:
Formato(18, 5) 'Devuelve 00018
Formato(15, 3) 'Devuelve 015
Espero que te sirva, creo que es lo que necesitas...
Un saludo.
<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>