DateSerial(year, month, day) returns a Variant/Date containing the date for the specified year, month, and day
Sub dateDemo3() Debug.Print DateSerial(1997, 7, 4) End Sub