DateValue(date) returns a Variant/Date containing the specified date
Sub dateDemo4() Debug.Print dateValue("July 2, 1971") End Sub