Date Functions VisualBasic Script

Sub dateDemo3()
   Debug.Print DateSerial(1997, 7, 4)
End Sub