Data Type VisualBasic Script

Sub main()
    Dim datTime As Date
    datTime = #6/30/1998 3:20:15 AM#
End Sub
Sub dateDemo()
    Dim datPayBy As Date
    
    datPayBy = Date + 60
    
    Debug.Print "Payment is due by " & datPayBy
End Sub