This example uses the DateSerial function to return the date for the specified year, month, and day.
Dim MyDate ' MyDate contains the date for February 12, 1969. MyDate = DateSerial(1969, 2, 12) ' Return a date.