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