The Function returns the current system date.
Add a button and add the following function.
Private Sub Constant_demo_Click() Dim a as Variant a = date() msgbox "The Value of a : " & a End Sub
When you execute the function, it produces the following output.
The Value of a : 19/07/2014