date

MsgBox "Now=" & Date
MsgBox "Now=" & Format(Now, "mm/dd/yyyy")

output

Now=09/25/2005

MsgBox "Now=" & Format(Now, "dddd mmm d yyyy")

output

Now=Saturday Sep 24 2005