Example - DateValue Function

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