Date Functions VisualBasic Script

Sub dateFormat()
    Dim datDateTime As Date
    datDateTime = #11/30/1998 10:54:17#
    Debug.Print datDateTime
    Debug.Print Format(datDateTime, "mm dddd hh:mm")      
End Sub