Example - DateSerial Function

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