Use formula to create a User Defined Function

I'd imagine you could use this:

Public Function ConvertDate(American_Date As String)
ConvertDate = Format(American_Date, "DD/MM/YYYY")
End Function