FormatDateTime(Now, vbLongDate)
Sub dateFunctions() Debug.Print "vbLongDate: " & FormatDateTime(Now, vbLongDate) End Sub