Public Function HTMLEntititesDecode(p_strText As String) As String
Dim strTemp As String
strTemp = p_strText
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(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(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(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(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, "™", "™")
HTMLEntititesDecode = strTemp
End Function