Example:

  1. Sub Main

    1. Dim MDate

      MDate = DateSerial(1959, 5, 29)

      Print MDate

    End Sub