Example - CDate Function

Sub Main()
    Dim MyDate, MDate, MTime, MSTime
    MybDate = "May 29,1959" ' Define date.
    MDate = CDate(MybDate)' Convert to Date data type.
    MTime = "10:32:27PM" ' Define time.
    MSTime = CDate(MTime)' Convert to Date data type.
    MsgBox MDate
    MsgBox MSTime
End Sub