This example uses the Now function to return the current system date and time.
Dim Today Today = Now ' Assign current system date and time.