This example uses the Date function to return the current system date.
Dim MyDate MyDate = Date ' MyDate contains the current system date.