FormatDatetime Function

Syntax:
FormatDateTime(Date[,NameFormat])

Name of the Format:
vbGeneralDate vbLongDate vbShortDate vbLongTime VbShortTime

Code:
Dim TDate, MyReturn
TDate = Now
MyReturn = FormatDateTime(TDate, vbGeneralDate)
MsgBox MyReturn