HTMLentities

Sub htmlentities(tc As String) As String
Dim res As StringBuilder
Dim testc As String
Dim n As Int
res.Initialize
For n=0 To tc.Length-1
   testc=tc.CharAt(n)
   Select tc
   Case Chr(0022)
      res.append(""")'   quotation mark
   Case "'"
      res.append("'")'   apostrophe 
   Case "&"
      res.append("&")'   ampersand
   Case "<"
      res.append("&lt;")'   less-than
   Case ">"
      res.append("&gt;")'   greater-than
   Case " "
      res.append("&nbsp;")'   non-breaking space
   Case "¡"
      res.append("&iexcl;")'   inverted exclamation mark
   Case "¢"
      res.append("&cent;")'   cent
   Case "£"
      res.append("&pound;")'   pound
   Case "¤"
      res.append("&curren;")'   currency
   Case "¥"
      res.append("&yen;")'   yen
   Case "¦"
      res.append("&brvbar;")'   broken vertical bar
   Case "§"
      res.append("&sect;")'   section
   Case "¨"
      res.append("&uml;")'   spacing diaeresis
   Case "©"   
      res.append("&copy;")'   copyright
   Case "ª"
      res.append("&ordf;")'   feminine ordinal indicator
   Case "«"
      res.append("&laquo;")'   angle quotation mark (left)
   Case "¬"
      res.append("&not;")'   negation
   Case "®"
      res.append("&reg;")'   registered trademark
   Case "¯"
      res.append("&macr;")'   spacing macron
   Case "°"
      res.append("&deg;")'   degree
   Case "±"
      res.append("&plusmn;")'   plus-or-minus 
   Case "²"
      res.append("&sup2;")'   superscript 2
   Case "³"
      res.append("&sup3;")'   superscript 3
   Case "´"
      res.append("&acute;")'   spacing acute
   Case "µ"
      res.append("&micro;")'   micro
   Case "¶"
      res.append("&para;")'   paragraph
   Case "·"
      res.append("&middot;")'   middle dot
   Case "¸"
      res.append("&cedil;")'   spacing cedilla
   Case "¹"
      res.append("&sup1;")'   superscript 1
   Case "º"
      res.append("&ordm;")'   masculine ordinal indicator
   Case "»"
      res.append("&raquo;")'   angle quotation mark (right)
   Case "¼"
      res.append("&frac14;")'   fraction 1/4
   Case "½"
      res.append("&frac12;")'   fraction 1/2
   Case "¾"
      res.append("&frac34;")'   fraction 3/4
   Case "¿"
      res.append("&iquest;")'   inverted question mark
   Case "×"
      res.append("&times;")'   multiplication
   Case "÷"
      res.append("&divide;")'   division
   Case "À"
      res.append("&Agrave;")'   capital a, grave accent
   Case "Á"
      res.append("&Aacute;")'   capital a, acute accent
   Case "Â"
      res.append("&Acirc;")'   capital a, circumflex accent
   Case "Ã"
      res.append("&Atilde;")'   capital a, tilde
   Case "Ä"
      res.append("&Auml;")'   capital a, umlaut mark
   Case "Å"
      res.append("&Aring;")'   capital a, ring
   Case "Æ"
      res.append("&AElig;")'   capital ae
   Case "Ç"
      res.append("&Ccedil;")'   capital c, cedilla
   Case "È"
      res.append("&Egrave;")'   capital e, grave accent
   Case "É"
      res.append("&Eacute;")'   capital e, acute accent
   Case "Ê"
      res.append("&Ecirc;")'   capital e, circumflex accent
   Case "Ë"
      res.append("&Euml;")'   capital e, umlaut mark
   Case "Ì"
      res.append("&Igrave;")'   capital i, grave accent
   Case "Í"
      res.append("&Iacute;")'   capital i, acute accent
   Case "Î"
      res.append("&Icirc;")'   capital i, circumflex accent
   Case "Ï"
      res.append("&Iuml;")'   capital i, umlaut mark
   Case "Ð"
      res.append("&ETH;")'   capital eth, Icelandic
   Case "Ñ"
      res.append("&Ntilde;")'   capital n, tilde
   Case "Ò"
      res.append("&Ograve;")'   capital o, grave accent
   Case "Ó"
      res.append("&Oacute;")'   capital o, acute accent
   Case "Ô"
      res.append("&Ocirc;")'   capital o, circumflex accent
   Case "Õ"
      res.append("&Otilde;")'   capital o, tilde
   Case "Ö"
      res.append("&Ouml;")'   capital o, umlaut mark
   Case "Ø"
      res.append("&Oslash;")'   capital o, slash
   Case "Ù"
      res.append("&Ugrave;")'   capital u, grave accent
   Case "Ú"
      res.append("&Uacute;")'   capital u, acute accent
   Case "Û"
      res.append("&Ucirc;")'   capital u, circumflex accent
   Case "Ü"
      res.append("&Uuml;")'   capital u, umlaut mark
   Case "Ý"
      res.append("&Yacute;")'   capital y, acute accent
   Case "Þ"
      res.append("&THORN;")'   capital THORN, Icelandic
   Case "ß"
      res.append("&szlig;")'   small sharp s, German
   Case "à"
      res.append("&agrave;")'   small a, grave accent
   Case "á"
      res.append("&aacute;")'   small a, acute accent
   Case "â"
      res.append("&acirc;")'   small a, circumflex accent
   Case "ã"
      res.append("&atilde;")'   small a, tilde
   Case "ä"
      res.append("&auml;")'   small a, umlaut mark
   Case "å"
      res.append("&aring;")'   small a, ring
   Case "æ"
      res.append("&aelig;")'   small ae
   Case "ç"
      res.append("&ccedil;")'   small c, cedilla
   Case "è"
      res.append("&egrave;")'   small e, grave accent
   Case "é"
      res.append("&eacute;")'   small e, acute accent
   Case "ê"
      res.append("&ecirc;")'   small e, circumflex accent
   Case "ë"
      res.append("&euml;")'   small e, umlaut mark
   Case "ì"
      res.append("&igrave;")'   small i, grave accent
   Case "í"
      res.append("&iacute;")'   small i, acute accent
   Case "î"
      res.append("&icirc;")'   small i, circumflex accent
   Case "ï"
      res.append("&iuml;")'   small i, umlaut mark
   Case "ð"
      res.append("&eth;")'   small eth, Icelandic
   Case "ñ"
      res.append("&ntilde;")'   small n, tilde
   Case "ò"
      res.append("&ograve;")'   small o, grave accent
   Case "ó"
      res.append("&oacute;")'   small o, acute accent
   Case "ô"
      res.append("&ocirc;")'   small o, circumflex accent
   Case "õ"
      res.append("&otilde;")'   small o, tilde
   Case "ö"
      res.append("&ouml;")'   small o, umlaut mark
   Case "ø"
      res.append("&oslash;")'   small o, slash
   Case "ù"
      res.append("&ugrave;")'   small u, grave accent
   Case "ú"
      res.append("&uacute;")'   small u, acute accent
   Case "û"
      res.append("&ucirc;")'   small u, circumflex accent
   Case "ü"
      res.append("&uuml;")'   small u, umlaut mark
   Case "ý"
      res.append("&yacute;")'   small y, acute accent
   Case "þ"
      res.append("&thorn;")'   small thorn, Icelandic
   Case "ÿ"
      res.append("&yuml;")'   small y, umlaut mark
   Case "€"
      res.append("&euro;")
   Case "™"
      res.append("&trade;")
   Case Else
      res.append(testc)
   End Select
Next
Return res.ToString
End Sub