Date Functions VisualBasic Script

Sub timeDemo()
    Debug.Print TimeSerial(9, 0, 0)
End Sub