Sub ReplaceRaros(p_strText As String) As String
Dim strTemp As String
strTemp = p_strText
strTemp=strTemp.Replace("á","á")
strTemp=strTemp.Replace("é","é")
strTemp=strTemp.Replace("Ã*","í")
strTemp=strTemp.Replace("ó","ó")
strTemp=strTemp.Replace("ú","ú")
strTemp=strTemp.Replace("Ã","Á")
strTemp=strTemp.Replace("É","É")
strTemp=strTemp.Replace("Ã","Í")
strTemp=strTemp.Replace("Ã","Ó")
strTemp=strTemp.Replace("Ú","Ú")
strTemp=strTemp.Replace("ñ","ñ")
strTemp=strTemp.Replace("ç","ç")
strTemp=strTemp.Replace("Ñ","Ñ")
strTemp=strTemp.Replace("Ç","Ç")
strTemp=strTemp.Replace("©","©")
strTemp=strTemp.Replace("®","®")
strTemp=strTemp.Replace("â„¢","™")
strTemp=strTemp.Replace("Ø","Ø")
strTemp=strTemp.Replace("ª","ª")
strTemp=strTemp.Replace("ä","ä")
strTemp=strTemp.Replace("ë","ë")
strTemp=strTemp.Replace("ï","ï")
strTemp=strTemp.Replace("ö","ö")
strTemp=strTemp.Replace("ü","ü")
strTemp=strTemp.Replace("Ä","Ä")
strTemp=strTemp.Replace("Ë","Ë")
strTemp=strTemp.Replace("Ã","Ï")
strTemp=strTemp.Replace("Ö","Ö")
strTemp=strTemp.Replace("Ãœ","Ü")
Return strTemp
End Sub