Dim PortugueseToEnglish As Map = CreateMap( "Ç":"C", _
"é":"e", _
"â":"a", _
"ã":"a", _
"á":"a", _
"à":"a", _
"ç":"c", _
"ê":"e", _
"Ê":"E", _
"Í":"I", _
"í":"i", _
"Ô":"O", _
"Ã":"A", _
"Â":"A", _
"Á":"A", _
"À":"A", _
"É":"E", _
"ô":"o", _
"õ":"o", _
"Ú":"U", _
"Õ":"O", _
"Ó":"O", _
"ó":"o", _
"ú":"u", _
"ñ":"n", _
"Ñ":"N")