[ermendalenda]

Aqui os dejo una función, en VB, de conversiones para los que usen, como yo, softwares que no están preparados para devolver ,de una respuesta de la aeat (consultar clientes o respuestas verifactu), caracteres utf8 y html especiales.
A ver si no se convierten al confirmar este post.

Public Function devuelve_ascii(ByVal sql_buff1 As String) As String
sql_buff1 = replace(sql_buff1, "€", "€")
sql_buff1 = replace(sql_buff1, "„", "„")
sql_buff1 = replace(sql_buff1, "‚", "‚")
sql_buff1 = replace(sql_buff1, "…", "…")
sql_buff1 = replace(sql_buff1, "‡", "‡")
sql_buff1 = replace(sql_buff1, "‰", "‰")
sql_buff1 = replace(sql_buff1, "‹", "‹")
sql_buff1 = replace(sql_buff1, "‘", "‘")
sql_buff1 = replace(sql_buff1, "’", "’")
sql_buff1 = replace(sql_buff1, "“", "“")
sql_buff1 = replace(sql_buff1, "•", "•")
sql_buff1 = replace(sql_buff1, "–", "–")
sql_buff1 = replace(sql_buff1, "—", "—")
sql_buff1 = replace(sql_buff1, "â„¢", "™")
sql_buff1 = replace(sql_buff1, "›", "›")
sql_buff1 = replace(sql_buff1, "×", "×")
sql_buff1 = replace(sql_buff1, "Æ’", "ƒ")
sql_buff1 = replace(sql_buff1, "ˆ", "ˆ")
sql_buff1 = replace(sql_buff1, "Å’", "Œ")
sql_buff1 = replace(sql_buff1, "Ž", "Ž")
sql_buff1 = replace(sql_buff1, "Ëœ", "˜")
sql_buff1 = replace(sql_buff1, "Å¡", "š")
sql_buff1 = replace(sql_buff1, "Å“", "œ")
sql_buff1 = replace(sql_buff1, "ž", "ž")
sql_buff1 = replace(sql_buff1, "Ÿ", "Ÿ")
sql_buff1 = replace(sql_buff1, "¡", "¡")
sql_buff1 = replace(sql_buff1, "¢", "¢")
sql_buff1 = replace(sql_buff1, "£", "£")
sql_buff1 = replace(sql_buff1, "¤", "¤")
sql_buff1 = replace(sql_buff1, "Â¥", "¥")
sql_buff1 = replace(sql_buff1, "¦", "¦")
sql_buff1 = replace(sql_buff1, "§", "§")
sql_buff1 = replace(sql_buff1, "¨", "¨")
sql_buff1 = replace(sql_buff1, "©", "©")
sql_buff1 = replace(sql_buff1, "ª", "ª")
sql_buff1 = replace(sql_buff1, "«", "«")
sql_buff1 = replace(sql_buff1, "¬", "¬")
sql_buff1 = replace(sql_buff1, "®", "®")
sql_buff1 = replace(sql_buff1, "¯", "¯")
sql_buff1 = replace(sql_buff1, "°", "°")
sql_buff1 = replace(sql_buff1, "±", "±")
sql_buff1 = replace(sql_buff1, "²", "²")
sql_buff1 = replace(sql_buff1, "³", "³")
sql_buff1 = replace(sql_buff1, "´", "´")
sql_buff1 = replace(sql_buff1, "µ", "µ")
sql_buff1 = replace(sql_buff1, "¶", "¶")
sql_buff1 = replace(sql_buff1, "·", "·")
sql_buff1 = replace(sql_buff1, "¸", "¸")
sql_buff1 = replace(sql_buff1, "¹", "¹")
sql_buff1 = replace(sql_buff1, "º", "º")
sql_buff1 = replace(sql_buff1, "»", "»")
sql_buff1 = replace(sql_buff1, "¼", "¼")
sql_buff1 = replace(sql_buff1, "½", "½")
sql_buff1 = replace(sql_buff1, "¾", "¾")
sql_buff1 = replace(sql_buff1, "¿", "¿")
sql_buff1 = replace(sql_buff1, "À", "À")
sql_buff1 = replace(sql_buff1, "Â", "Â")
sql_buff1 = replace(sql_buff1, "Ã", "Ã")
sql_buff1 = replace(sql_buff1, "Ä", "Ä")
sql_buff1 = replace(sql_buff1, "Ã…", "Å")
sql_buff1 = replace(sql_buff1, "Æ", "Æ")
sql_buff1 = replace(sql_buff1, "Ç", "Ç")
sql_buff1 = replace(sql_buff1, "È", "È")
sql_buff1 = replace(sql_buff1, "É", "É")
sql_buff1 = replace(sql_buff1, "Ê", "Ê")
sql_buff1 = replace(sql_buff1, "Ë", "Ë")
sql_buff1 = replace(sql_buff1, "ÃŒ", "Ì")
sql_buff1 = replace(sql_buff1, "Ã�", "Í")
sql_buff1 = replace(sql_buff1, "ÃŽ", "Î")
sql_buff1 = replace(sql_buff1, "Ã�", "Ï")
sql_buff1 = replace(sql_buff1, "Ã�", "Ð")
sql_buff1 = replace(sql_buff1, "Ñ", "Ñ")
sql_buff1 = replace(sql_buff1, "Ã’", "Ò")
sql_buff1 = replace(sql_buff1, "Ó", "Ó")
sql_buff1 = replace(sql_buff1, "Ô", "Ô")
sql_buff1 = replace(sql_buff1, "Õ", "Õ")
sql_buff1 = replace(sql_buff1, "Ö", "Ö")
sql_buff1 = replace(sql_buff1, "Ø", "Ø")
sql_buff1 = replace(sql_buff1, "Ù", "Ù")
sql_buff1 = replace(sql_buff1, "Ú", "Ú")
sql_buff1 = replace(sql_buff1, "Û", "Û")
sql_buff1 = replace(sql_buff1, "Ãœ", "Ü")
sql_buff1 = replace(sql_buff1, "Ã�", "Ý")
sql_buff1 = replace(sql_buff1, "Þ", "Þ")
sql_buff1 = replace(sql_buff1, "ß", "ß")
sql_buff1 = replace(sql_buff1, "á", "á")
sql_buff1 = replace(sql_buff1, "â", "â")
sql_buff1 = replace(sql_buff1, "ã", "ã")
sql_buff1 = replace(sql_buff1, "ä", "ä")
sql_buff1 = replace(sql_buff1, "Ã¥", "å")
sql_buff1 = replace(sql_buff1, "æ", "æ")
sql_buff1 = replace(sql_buff1, "ç", "ç")
sql_buff1 = replace(sql_buff1, "è", "è")
sql_buff1 = replace(sql_buff1, "é", "é")
sql_buff1 = replace(sql_buff1, "ê", "ê")
sql_buff1 = replace(sql_buff1, "ë", "ë")
sql_buff1 = replace(sql_buff1, "ì", "ì")
sql_buff1 = replace(sql_buff1, "Ã*", "í")
sql_buff1 = replace(sql_buff1, "î", "î")
sql_buff1 = replace(sql_buff1, "ï", "ï")
sql_buff1 = replace(sql_buff1, "ð", "ð")
sql_buff1 = replace(sql_buff1, "ñ", "ñ")
sql_buff1 = replace(sql_buff1, "ò", "ò")
sql_buff1 = replace(sql_buff1, "ó", "ó")
sql_buff1 = replace(sql_buff1, "ô", "ô")
sql_buff1 = replace(sql_buff1, "õ", "õ")
sql_buff1 = replace(sql_buff1, "ö", "ö")
sql_buff1 = replace(sql_buff1, "÷", "÷")
sql_buff1 = replace(sql_buff1, "ø", "ø")
sql_buff1 = replace(sql_buff1, "ù", "ù")
sql_buff1 = replace(sql_buff1, "ú", "ú")
sql_buff1 = replace(sql_buff1, "û", "û")
sql_buff1 = replace(sql_buff1, "ü", "ü")
sql_buff1 = replace(sql_buff1, "ý", "ý")
sql_buff1 = replace(sql_buff1, "þ", "þ")
sql_buff1 = replace(sql_buff1, "ÿ", "ÿ")
sql_buff1 = replace(sql_buff1, "!", "!")
sql_buff1 = replace(sql_buff1, """, Chr(34))
sql_buff1 = replace(sql_buff1, "#", "#")
sql_buff1 = replace(sql_buff1, "$", "$")
sql_buff1 = replace(sql_buff1, "%", "%")
sql_buff1 = replace(sql_buff1, "&", "&")
sql_buff1 = replace(sql_buff1, "'", "'")
sql_buff1 = replace(sql_buff1, "&lparen;", "(")
sql_buff1 = replace(sql_buff1, "&rparen;", ")")
sql_buff1 = replace(sql_buff1, "*", "*")
sql_buff1 = replace(sql_buff1, "+", "+")
sql_buff1 = replace(sql_buff1, ",", ",")
sql_buff1 = replace(sql_buff1, ".", ".")
sql_buff1 = replace(sql_buff1, "/", "/")
sql_buff1 = replace(sql_buff1, ":", ":")
sql_buff1 = replace(sql_buff1, ";", ";")
sql_buff1 = replace(sql_buff1, "&lt;", "<")
sql_buff1 = replace(sql_buff1, "&equals;", "=")
sql_buff1 = replace(sql_buff1, "&gt;", ">")
sql_buff1 = replace(sql_buff1, "&quest;", "?")
sql_buff1 = replace(sql_buff1, "&commat;", "@")
sql_buff1 = replace(sql_buff1, "&lsqb;", "[")
sql_buff1 = replace(sql_buff1, "&bsol;", "\")
sql_buff1 = replace(sql_buff1, "&rsqb;", "]")
sql_buff1 = replace(sql_buff1, "&Hat;", "^")
sql_buff1 = replace(sql_buff1, "&lowbar;", "_")
sql_buff1 = replace(sql_buff1, "&grave;", "`")
sql_buff1 = replace(sql_buff1, "&lcub;", "{")
sql_buff1 = replace(sql_buff1, "&verbar;", "|")
sql_buff1 = replace(sql_buff1, "&rcub;", "}")
sql_buff1 = replace(sql_buff1, "&tilde;", "~")
sql_buff1 = replace(sql_buff1, "&euro;", "€")
sql_buff1 = replace(sql_buff1, "&sbquo;", "‚")
sql_buff1 = replace(sql_buff1, "&fnof;", "ƒ")
sql_buff1 = replace(sql_buff1, "&bdquo;", "„")
sql_buff1 = replace(sql_buff1, "&hellip;", "…")
sql_buff1 = replace(sql_buff1, "&dagger;", "†")
sql_buff1 = replace(sql_buff1, "&Dagger;", "‡")
sql_buff1 = replace(sql_buff1, "&circ;", "ˆ")
sql_buff1 = replace(sql_buff1, "&permil;", "‰")
sql_buff1 = replace(sql_buff1, "&Scaron;", "Š")
sql_buff1 = replace(sql_buff1, "&lsaquo;", "‹")
sql_buff1 = replace(sql_buff1, "&OElig;", "Œ")
sql_buff1 = replace(sql_buff1, "&Zcaron;", "Ž")
sql_buff1 = replace(sql_buff1, "&lsquo;", "‘")
sql_buff1 = replace(sql_buff1, "&rsquo;", "’")
sql_buff1 = replace(sql_buff1, "&ldquo;", "“")
sql_buff1 = replace(sql_buff1, "&rdquo;", "”")
sql_buff1 = replace(sql_buff1, "&bull;", "•")
sql_buff1 = replace(sql_buff1, "&ndash;", "–")
sql_buff1 = replace(sql_buff1, "&mdash;", "—")
sql_buff1 = replace(sql_buff1, "&tilde;", "˜")
sql_buff1 = replace(sql_buff1, "&trade;", "™")
sql_buff1 = replace(sql_buff1, "&scaron;", "š")
sql_buff1 = replace(sql_buff1, "&rsaquo;", "›")
sql_buff1 = replace(sql_buff1, "&oelig;", "œ")
sql_buff1 = replace(sql_buff1, "&zcaron;", "ž")
sql_buff1 = replace(sql_buff1, "&Yuml;", "Ÿ")
sql_buff1 = replace(sql_buff1, "&nbsp;", " ")
sql_buff1 = replace(sql_buff1, "&iexcl;", "¡")
sql_buff1 = replace(sql_buff1, "&cent;", "¢")
sql_buff1 = replace(sql_buff1, "&pound;", "£")
sql_buff1 = replace(sql_buff1, "&curren;", "¤")
sql_buff1 = replace(sql_buff1, "&yen;", "¥")
sql_buff1 = replace(sql_buff1, "&brvbar;", "¦")
sql_buff1 = replace(sql_buff1, "&sect;", "§")
sql_buff1 = replace(sql_buff1, "&uml;", "¨")
sql_buff1 = replace(sql_buff1, "&copy;", "©")
sql_buff1 = replace(sql_buff1, "&ordf;", "ª")
sql_buff1 = replace(sql_buff1, "&laquo;", "«")
sql_buff1 = replace(sql_buff1, "&not;", "¬")
sql_buff1 = replace(sql_buff1, "**", "-") '---- ésta no se ve bien seria *le pongo un espacio : sql_buff1 = replace(sql_buff1, "& shy;", "-")
sql_buff1 = replace(sql_buff1, "&reg;", "®")
sql_buff1 = replace(sql_buff1, "&macr;", "¯")
sql_buff1 = replace(sql_buff1, "&deg;", "°")
sql_buff1 = replace(sql_buff1, "&plusmn;", "±")
sql_buff1 = replace(sql_buff1, "²", "²")
sql_buff1 = replace(sql_buff1, "³", "³")
sql_buff1 = replace(sql_buff1, "&acute;", "´")
sql_buff1 = replace(sql_buff1, "&micro;", "µ")
sql_buff1 = replace(sql_buff1, "&para;", "¶")
sql_buff1 = replace(sql_buff1, "&middot;", "·")
sql_buff1 = replace(sql_buff1, "&cedil;", "¸")
sql_buff1 = replace(sql_buff1, "¹", "¹")
sql_buff1 = replace(sql_buff1, "&ordm;", "º")
sql_buff1 = replace(sql_buff1, "&raquo;", "»")
sql_buff1 = replace(sql_buff1, "¼", "¼")
sql_buff1 = replace(sql_buff1, "½", "½")
sql_buff1 = replace(sql_buff1, "¾", "¾")
sql_buff1 = replace(sql_buff1, "&iquest;", "¿")
sql_buff1 = replace(sql_buff1, "&Agrave;", "À")
sql_buff1 = replace(sql_buff1, "&Aacute;", "Á")
sql_buff1 = replace(sql_buff1, "&Acirc;", "Â")
sql_buff1 = replace(sql_buff1, "&Atilde;", "Ã")
sql_buff1 = replace(sql_buff1, "&Auml;", "Ä")
sql_buff1 = replace(sql_buff1, "&Aring;", "Å")
sql_buff1 = replace(sql_buff1, "&AElig;", "Æ")
sql_buff1 = replace(sql_buff1, "&Ccedil;", "Ç")
sql_buff1 = replace(sql_buff1, "&Egrave;", "È")
sql_buff1 = replace(sql_buff1, "&Eacute;", "É")
sql_buff1 = replace(sql_buff1, "&Ecirc;", "Ê")
sql_buff1 = replace(sql_buff1, "&Euml;", "Ë")
sql_buff1 = replace(sql_buff1, "&Igrave;", "Ì")
sql_buff1 = replace(sql_buff1, "&Iacute;", "Í")
sql_buff1 = replace(sql_buff1, "&Icirc;", "Î")
sql_buff1 = replace(sql_buff1, "&Iuml;", "Ï")
sql_buff1 = replace(sql_buff1, "&ETH;", "Ð")
sql_buff1 = replace(sql_buff1, "&Ntilde;", "Ñ")
sql_buff1 = replace(sql_buff1, "&Ograve;", "Ò")
sql_buff1 = replace(sql_buff1, "&Oacute;", "Ó")
sql_buff1 = replace(sql_buff1, "&Ocirc;", "Ô")
sql_buff1 = replace(sql_buff1, "&Otilde;", "Õ")
sql_buff1 = replace(sql_buff1, "&Ouml;", "Ö")
sql_buff1 = replace(sql_buff1, "&times;", "×")
sql_buff1 = replace(sql_buff1, "&Oslash;", "Ø")
sql_buff1 = replace(sql_buff1, "&Ugrave;", "Ù")
sql_buff1 = replace(sql_buff1, "&Uacute;", "Ú")
sql_buff1 = replace(sql_buff1, "&Ucirc;", "Û")
sql_buff1 = replace(sql_buff1, "&Uuml;", "Ü")
sql_buff1 = replace(sql_buff1, "&Yacute;", "Ý")
sql_buff1 = replace(sql_buff1, "&THORN;", "Þ")
sql_buff1 = replace(sql_buff1, "&szlig;", "ß")
sql_buff1 = replace(sql_buff1, "&agrave;", "à")
sql_buff1 = replace(sql_buff1, "&aacute;", "á")
sql_buff1 = replace(sql_buff1, "&acirc;", "â")
sql_buff1 = replace(sql_buff1, "&atilde;", "ã")
sql_buff1 = replace(sql_buff1, "&auml;", "ä")
sql_buff1 = replace(sql_buff1, "&aring;", "å")
sql_buff1 = replace(sql_buff1, "&aelig;", "æ")
sql_buff1 = replace(sql_buff1, "&ccedil;", "ç")
sql_buff1 = replace(sql_buff1, "&egrave;", "è")
sql_buff1 = replace(sql_buff1, "&eacute;", "é")
sql_buff1 = replace(sql_buff1, "&ecirc;", "ê")
sql_buff1 = replace(sql_buff1, "&euml;", "ë")
sql_buff1 = replace(sql_buff1, "&igrave;", "ì")
sql_buff1 = replace(sql_buff1, "&iacute;", "í")
sql_buff1 = replace(sql_buff1, "&icirc;", "î")
sql_buff1 = replace(sql_buff1, "&iuml;", "ï")
sql_buff1 = replace(sql_buff1, "&eth;", "ð")
sql_buff1 = replace(sql_buff1, "&ntilde;", "ñ")
sql_buff1 = replace(sql_buff1, "&ograve;", "ò")
sql_buff1 = replace(sql_buff1, "&oacute;", "ó")
sql_buff1 = replace(sql_buff1, "&ocirc;", "ô")
sql_buff1 = replace(sql_buff1, "&otilde;", "õ")
sql_buff1 = replace(sql_buff1, "&ouml;", "ö")
sql_buff1 = replace(sql_buff1, "&divide;", "÷")
sql_buff1 = replace(sql_buff1, "&oslash;", "ø")
sql_buff1 = replace(sql_buff1, "&ugrave;", "ù")
sql_buff1 = replace(sql_buff1, "&uacute;", "ú")
sql_buff1 = replace(sql_buff1, "&ucirc;", "û")
sql_buff1 = replace(sql_buff1, "&uuml;", "ü")
sql_buff1 = replace(sql_buff1, "&yacute;", "ý")
sql_buff1 = replace(sql_buff1, "&thorn;", "þ")
sql_buff1 = replace(sql_buff1, "&yuml;", "ÿ")

devuelve_ascii = sql_buff1
End Function