Private Function ConvertirLetrasUTF8aLATIN1(xTextoAProcesar As String) As String
Dim VarTmp As String
VarTmp = xTextoAProcesar
VarTmp = Replace(VarTmp, "+AKA-", "Â")
VarTmp = Replace(VarTmp, "¡", "¡")
VarTmp = Replace(VarTmp, "¢", "¢")
VarTmp = Replace(VarTmp, "£", "£")
VarTmp = Replace(VarTmp, "¤", "¤")
VarTmp = Replace(VarTmp, "Â¥", "¥")
VarTmp = Replace(VarTmp, "¦", "¦")
VarTmp = Replace(VarTmp, "§", "§")
VarTmp = Replace(VarTmp, "¨", "¨")
VarTmp = Replace(VarTmp, "©", "©")
VarTmp = Replace(VarTmp, "ª", "ª")
VarTmp = Replace(VarTmp, "«", "«")
VarTmp = Replace(VarTmp, "+AKw-", "Â")
VarTmp = Replace(VarTmp, "¢í", "")
VarTmp = Replace(VarTmp, "®", "®")
VarTmp = Replace(VarTmp, "¯", "¯")
VarTmp = Replace(VarTmp, "°", "°")
VarTmp = Replace(VarTmp, "±", "±")
VarTmp = Replace(VarTmp, "²", "²")
VarTmp = Replace(VarTmp, "³", "³")
VarTmp = Replace(VarTmp, "´", "´")
VarTmp = Replace(VarTmp, "µ", "µ")
VarTmp = Replace(VarTmp, "+ALY-", "Â")
VarTmp = Replace(VarTmp, "·", "·")
VarTmp = Replace(VarTmp, "¸", "¸")
VarTmp = Replace(VarTmp, "¹", "¹")
VarTmp = Replace(VarTmp, "º", "º")
VarTmp = Replace(VarTmp, "»", "»")
VarTmp = Replace(VarTmp, "¼", "¼")
VarTmp = Replace(VarTmp, "½", "½")
VarTmp = Replace(VarTmp, "¾", "¾")
VarTmp = Replace(VarTmp, "¿", "¿")
VarTmp = Replace(VarTmp, "À", "À")
VarTmp = Replace(VarTmp, "Ã ", "Á")
VarTmp = Replace(VarTmp, "Â", "Â")
VarTmp = Replace(VarTmp, "Ã", "Ã")
VarTmp = Replace(VarTmp, "Ä", "Ä")
VarTmp = Replace(VarTmp, "Ã…", "Å")
VarTmp = Replace(VarTmp, "Æ", "Æ")
VarTmp = Replace(VarTmp, "Ç", "Ç")
VarTmp = Replace(VarTmp, "È", "È")
VarTmp = Replace(VarTmp, "É", "É")
VarTmp = Replace(VarTmp, "Ê", "Ê")
VarTmp = Replace(VarTmp, "Ë", "Ë")
VarTmp = Replace(VarTmp, "ÃŒ", "Ì")
VarTmp = Replace(VarTmp, "Ã ", "Í")
VarTmp = Replace(VarTmp, "ÃŽ", "Î")
VarTmp = Replace(VarTmp, "Ã ", "Ï")
VarTmp = Replace(VarTmp, "Ã ", "Ð")
VarTmp = Replace(VarTmp, "Ñ", "Ñ")
VarTmp = Replace(VarTmp, "Ã’", "Ò")
VarTmp = Replace(VarTmp, "Ó", "Ó")
VarTmp = Replace(VarTmp, "Ô", "Ô")
VarTmp = Replace(VarTmp, "Õ", "Õ")
VarTmp = Replace(VarTmp, "Ö", "Ö")
VarTmp = Replace(VarTmp, "×", "×")
VarTmp = Replace(VarTmp, "Ø", "Ø")
VarTmp = Replace(VarTmp, "Ù", "Ù")
VarTmp = Replace(VarTmp, "Ú", "Ú")
VarTmp = Replace(VarTmp, "Û", "Û")
VarTmp = Replace(VarTmp, "Ü", "Ü")
VarTmp = Replace(VarTmp, "Ã ", "Ý")
VarTmp = Replace(VarTmp, "Þ", "Þ")
VarTmp = Replace(VarTmp, "ß", "ß")
VarTmp = Replace(VarTmp, "Ã", "à")
VarTmp = Replace(VarTmp, "á", "á")
VarTmp = Replace(VarTmp, "â", "â")
VarTmp = Replace(VarTmp, "ã", "ã")
VarTmp = Replace(VarTmp, "ä", "ä")
VarTmp = Replace(VarTmp, "Ã¥", "å")
VarTmp = Replace(VarTmp, "æ", "æ")
VarTmp = Replace(VarTmp, "ç", "ç")
VarTmp = Replace(VarTmp, "è", "è")
VarTmp = Replace(VarTmp, "é", "é")
VarTmp = Replace(VarTmp, "ê", "ê")
VarTmp = Replace(VarTmp, "ë", "ë")
VarTmp = Replace(VarTmp, "Ã", "ì")
VarTmp = Replace(VarTmp, "Ã", "í")
VarTmp = Replace(VarTmp, "î", "î")
VarTmp = Replace(VarTmp, "ï", "ï")
VarTmp = Replace(VarTmp, "ð", "ð")
VarTmp = Replace(VarTmp, "ñ", "ñ")
VarTmp = Replace(VarTmp, "ò", "ò")
VarTmp = Replace(VarTmp, "ó", "ó")
VarTmp = Replace(VarTmp, "ô", "ô")
VarTmp = Replace(VarTmp, "õ", "õ")
VarTmp = Replace(VarTmp, "Ã", "ö")
VarTmp = Replace(VarTmp, "÷", "÷")
VarTmp = Replace(VarTmp, "ø", "ø")
VarTmp = Replace(VarTmp, "ù", "ù")
VarTmp = Replace(VarTmp, "ú", "ú")
VarTmp = Replace(VarTmp, "û", "û")
VarTmp = Replace(VarTmp, "ü", "ü")
VarTmp = Replace(VarTmp, "ý", "ý")
VarTmp = Replace(VarTmp, "þ", "þ")
VarTmp = Replace(VarTmp, "ÿ", "ÿ")
VarTmp = Replace(VarTmp, "+AKA-", "Â")
VarTmp = Replace(VarTmp, "¡", "¡")
VarTmp = Replace(VarTmp, "¢", "¢")
VarTmp = Replace(VarTmp, "£", "£")
VarTmp = Replace(VarTmp, "¤", "¤")
VarTmp = Replace(VarTmp, "Â¥", "¥")
VarTmp = Replace(VarTmp, "¦", "¦")
VarTmp = Replace(VarTmp, "§", "§")
VarTmp = Replace(VarTmp, "¨", "¨")
VarTmp = Replace(VarTmp, "©", "©")
VarTmp = Replace(VarTmp, "ª", "ª")
VarTmp = Replace(VarTmp, "«", "«")
VarTmp = Replace(VarTmp, "+AKw-", "Â")
VarTmp = Replace(VarTmp, "¢í", "")
VarTmp = Replace(VarTmp, "®", "®")
VarTmp = Replace(VarTmp, "¯", "¯")
VarTmp = Replace(VarTmp, "°", "°")
VarTmp = Replace(VarTmp, "±", "±")
VarTmp = Replace(VarTmp, "²", "²")
VarTmp = Replace(VarTmp, "³", "³")
VarTmp = Replace(VarTmp, "´", "´")
VarTmp = Replace(VarTmp, "µ", "µ")
VarTmp = Replace(VarTmp, "+ALY-", "Â")
VarTmp = Replace(VarTmp, "·", "·")
VarTmp = Replace(VarTmp, "¸", "¸")
VarTmp = Replace(VarTmp, "¹", "¹")
VarTmp = Replace(VarTmp, "º", "º")
VarTmp = Replace(VarTmp, "»", "»")
VarTmp = Replace(VarTmp, "¼", "¼")
VarTmp = Replace(VarTmp, "½", "½")
VarTmp = Replace(VarTmp, "¾", "¾")
VarTmp = Replace(VarTmp, "¿", "¿")
VarTmp = Replace(VarTmp, "À", "À")
VarTmp = Replace(VarTmp, "Ã ", "Á")
VarTmp = Replace(VarTmp, "Â", "Â")
VarTmp = Replace(VarTmp, "Ã", "Ã")
VarTmp = Replace(VarTmp, "Ä", "Ä")
VarTmp = Replace(VarTmp, "Ã…", "Å")
VarTmp = Replace(VarTmp, "Æ", "Æ")
VarTmp = Replace(VarTmp, "Ç", "Ç")
VarTmp = Replace(VarTmp, "È", "È")
VarTmp = Replace(VarTmp, "É", "É")
VarTmp = Replace(VarTmp, "Ê", "Ê")
VarTmp = Replace(VarTmp, "Ë", "Ë")
VarTmp = Replace(VarTmp, "ÃŒ", "Ì")
VarTmp = Replace(VarTmp, "Ã ", "Í")
VarTmp = Replace(VarTmp, "ÃŽ", "Î")
VarTmp = Replace(VarTmp, "Ã ", "Ï")
VarTmp = Replace(VarTmp, "Ã ", "Ð")
VarTmp = Replace(VarTmp, "Ñ", "Ñ")
VarTmp = Replace(VarTmp, "Ã’", "Ò")
VarTmp = Replace(VarTmp, "Ó", "Ó")
VarTmp = Replace(VarTmp, "Ô", "Ô")
VarTmp = Replace(VarTmp, "Õ", "Õ")
VarTmp = Replace(VarTmp, "Ö", "Ö")
VarTmp = Replace(VarTmp, "×", "×")
VarTmp = Replace(VarTmp, "Ø", "Ø")
VarTmp = Replace(VarTmp, "Ù", "Ù")
VarTmp = Replace(VarTmp, "Ú", "Ú")
VarTmp = Replace(VarTmp, "Û", "Û")
VarTmp = Replace(VarTmp, "Ü", "Ü")
VarTmp = Replace(VarTmp, "Ã ", "Ý")
VarTmp = Replace(VarTmp, "Þ", "Þ")
VarTmp = Replace(VarTmp, "ß", "ß")
VarTmp = Replace(VarTmp, "Ã", "à")
VarTmp = Replace(VarTmp, "á", "á")
VarTmp = Replace(VarTmp, "â", "â")
VarTmp = Replace(VarTmp, "ã", "ã")
VarTmp = Replace(VarTmp, "ä", "ä")
VarTmp = Replace(VarTmp, "Ã¥", "å")
VarTmp = Replace(VarTmp, "æ", "æ")
VarTmp = Replace(VarTmp, "ç", "ç")
VarTmp = Replace(VarTmp, "è", "è")
VarTmp = Replace(VarTmp, "é", "é")
VarTmp = Replace(VarTmp, "ê", "ê")
VarTmp = Replace(VarTmp, "ë", "ë")
VarTmp = Replace(VarTmp, "Ã", "ì")
VarTmp = Replace(VarTmp, "Ã", "í")
VarTmp = Replace(VarTmp, "î", "î")
VarTmp = Replace(VarTmp, "ï", "ï")
VarTmp = Replace(VarTmp, "ð", "ð")
VarTmp = Replace(VarTmp, "ñ", "ñ")
VarTmp = Replace(VarTmp, "ò", "ò")
VarTmp = Replace(VarTmp, "ó", "ó")
VarTmp = Replace(VarTmp, "ô", "ô")
VarTmp = Replace(VarTmp, "õ", "õ")
VarTmp = Replace(VarTmp, "Ã", "ö")
VarTmp = Replace(VarTmp, "÷", "÷")
VarTmp = Replace(VarTmp, "ø", "ø")
VarTmp = Replace(VarTmp, "ù", "ù")
VarTmp = Replace(VarTmp, "ú", "ú")
VarTmp = Replace(VarTmp, "û", "û")
VarTmp = Replace(VarTmp, "ü", "ü")
VarTmp = Replace(VarTmp, "ý", "ý")
VarTmp = Replace(VarTmp, "þ", "þ")
VarTmp = Replace(VarTmp, "ÿ", "ÿ")
ConvertirLetrasUTF8aLATIN1 = Trim(VarTmp)
End Function