Formatear numero

Buenas Pablo a ver si te sirve, hice esto porque algunas vezes no quiero que
sea zero, sino otro caracter...

strPad = LeftPad(45,5,"0")

Function LeftPad(Str,NumMax,Pad)

If (Len(Str) <= 0) Then
LeftPad = ""
Exit Function
End If

If (NumMax <= 0) Then
LeftPad = Str
Exit Function
End If

If (Len(Pad) <= 0) Then
LeftPad = Str
Exit Function
End If

Dim i, aux
aux = ""
For i = 1 To NumMax - Len(Str)
aux = aux & Pad
Next

LeftPad = aux & Str

End Function


"Pablo" wrote in message
news:%23$

Hola Grupo: Como puedo formatear un numero en ASP si el numero es 25 me
muestre 0025
O sea en general que me formatee siempre a 4 dígitos.
Gracias
Pablo