dim varData as date
varData=format(vardata, "MM/dd/yyyy")
msgbox(varData)