Data Type VisualBasic Script

Sub constSub()
    Const conDate As Date = #3/2/2004#
    Debug.Print conDate
End Sub