Function FormatOutPut(num,"0000")
On Error Resume Next
Dim i
FormatOutPut = strFormat
If Not IsNumeric(num) Then Exit Function
FormatOutPut = ""
For i = 1 To (Len(strFormat) - Len(CStr(num)))
FormatOutPut = FormatOutPut + "0"
Next
FormatOutPut = FormatOutPut & CStr(num)
End Function