Returns a variant (Date) corresponding to the year, month and day that were passed in. All three parameters for the DateSerial function are required and must be valid.

Sub Main
   Dim MDate
   MDate = DateSerial(1959, 5, 29)
   Print MDate
End Sub