The following example uses the Date function to return the current system date:

Dim MyDate
MyDate = Date   ' MyDate contains the current system date.