Example - Now Function

Sub Main()
   Dim Today
   Today = Now
   MsgBox "Today is: " & Today
End Sub