Returns a variant (Date) corresponding to the string date expression that was passed in. dateexpression can be a string or any expression that can represent a date, time or both a date and a time.

Sub Main()
Dim v As Variant
Dim d As Double
   d = Now
   Print d 
   v = DateValue("1959/05/29")
   MsgBox (VarType(v))
   MsgBox (v)
End Sub