Función Date

Returns the current system date as a string, or date variant.

Date[$][()]

Sub ExampleDate
    MsgBox "La fecha es " & Date
End Sub