Function BareDate(varDate)
Dim dtDate
	If IsDate(varDate) Then
		dtDate = Cdate(varDate)
	Else
		dtDate = Cdate(Now)
	End If
	BareDate = Month(dtDate) & "/" & Day(dtDate) & "/" & Year(dtDate)
End Function