Date

Dim MyDate
MyDate = Date
MsgBox MyDate

CDate - VB Script Function

Dim MyDate,MyVal,MyTime,MyValue
MyDate = "October 19, 1962"
MyVal = CDate(MyDate)
MsgBox MyVal
MyTime = "04:34:43 PM"
MyValue = CDate(MyTime)
MsgBox MyValue