Date Functions VisualBasic Script

Sub numFormat()
    dblNumber = 12345.678
    Debug.Print dblNumber
    Debug.Print Format(dblNumber "#####0")
End Sub