Date Functions VisualBasic Script

Sub FormatDemo1()
    Debug.Print Format("123456", "$00.0000")
End Sub