Public Function HtmlCars(ByVal Message As String) As String
Message = Replace(Message, "ë", "ë")
Message = Replace(Message, "ê", "ê")
Message = Replace(Message, "é", "é")
Message = Replace(Message, "è", "è")
Message = Replace(Message, "ä", "ä")
Message = Replace(Message, "â", "â")
Message = Replace(Message, "à", "à")
Message = Replace(Message, "û", "û")
Message = Replace(Message, "ù", "ù")
Message = Replace(Message, "ç", "ç")
HtmlCars = Message
End Function