reverse replace di caratteri speciali

[eng]

ciao a tutti,
devo acquisire un testo da form, scriverlo a database, ma anche dare la possibilità dimodificarlo.
Per l'INSERT, preventivamente coveto il testo acquisito dalla text area con la funzione:

Function SostCarSpecialiTextAreaEdit(ByVal testo)
        If testo <> "" Then
        testo = replace(testo, "'", "''")
        testo = replace(testo, "‘","&lsquo;")
        testo = replace(testo, "’","&rsquo;")
        testo = replace(testo, """","&quot;") 
        testo = replace(testo, ".",".")
        testo = replace(testo, "#","&amp;")
        testo = replace(testo, "<","&lt;")
        testo = replace(testo, ">","&gt;")
        testo = replace(testo, "¡","&iexcl;")
        testo = replace(testo, "¢","&cent;")
        testo = replace(testo, "£","&pound")
        testo = replace(testo, "¤","&curren;")
        testo = replace(testo, "¥","&yen;")
        testo = replace(testo, "¦","&brvbar;")
        testo = replace(testo, "§","&sect;")
        testo = replace(testo, "¨","&uml;")
        testo = replace(testo, "©","<sup>&copy;</sup>")
        testo = replace(testo, "ª","&ordf;")
        testo = replace(testo, "«","&laquo;")
        testo = replace(testo, "¬","&not;")
        testo = replace(testo, "_","&shy;")
        testo = replace(testo, "–","&ndash;")
        testo = replace(testo, "—","&mdash;")
        testo = replace(testo, "®","<sup>&reg;</sup>")
        testo = replace(testo, "¯","&macr;")
        testo = replace(testo, "°","&deg;")
        testo = replace(testo, "±","&plusmn;")
        testo = replace(testo, "²","&sup2;")
        testo = replace(testo, "³","&sup3;")
        testo = replace(testo, "´","&acute;")
        testo = replace(testo, "µ","&micro;")
        testo = replace(testo, "¶","&para;")
        testo = replace(testo, "·","&middot;")
        testo = replace(testo, "¸","&cedil;")
        testo = replace(testo, "¹","&sup1;")
        testo = replace(testo, "º","&ordm;")
        testo = replace(testo, "»","&raquo;")
        testo = replace(testo, "¼","&frac14;")
        testo = replace(testo, "½","&frac12;")
        testo = replace(testo, "¾","&frac34;")
        testo = replace(testo, "¿","&iquest;")
        testo = replace(testo, "À","&Agrave;")
        testo = replace(testo, "Á","&Aacute;")
        testo = replace(testo, "Â","&Acirc;")
        testo = replace(testo, "Ã","&Atilde;")
        testo = replace(testo, "Ä","&Auml;")
        testo = replace(testo, "Å","&Aring;")
        testo = replace(testo, "Æ","&AElig;")
        testo = replace(testo, "Ç","&Ccedil;")
        testo = replace(testo, "È","&Egrave;")
        testo = replace(testo, "É","&Eacute;")
        testo = replace(testo, "Ê","&Ecirc;")
        testo = replace(testo, "Ë","&Euml;")
        testo = replace(testo, "Ì","&Igrave;")
        testo = replace(testo, "Í","&Iacute;")
        testo = replace(testo, "Î","&Icirc;")
        testo = replace(testo, "Ï","&Iuml;")
        testo = replace(testo, "Ð","&ETH;")
        testo = replace(testo, "Ñ","&Ntilde;")
        testo = replace(testo, "Ò","&Ograve;")
        testo = replace(testo, "Ó","&Oacute;")
        testo = replace(testo, "Ô","&Ocirc;")
        testo = replace(testo, "Õ","&Otilde;")
        testo = replace(testo, "Ö","&Ouml;")
        testo = replace(testo, "×","&times;")
        testo = replace(testo, "Ø","&Oslash;")
        testo = replace(testo, "Ù","&Ugrave;")
        testo = replace(testo, "Ú","&Uacute;")
        testo = replace(testo, "Û","&Ucirc;")
        testo = replace(testo, "Ü","&Uuml;")
        testo = replace(testo, "Ý","&Yacute;")
        testo = replace(testo, "Þ","&THORN;")
        testo = replace(testo, "ß","&szlig;")
        testo = replace(testo, "à","&agrave;")
        testo = replace(testo, "á","&aacute;")
        testo = replace(testo, "â","&acirc;")
        testo = replace(testo, "ã","&atilde;")
        testo = replace(testo, "ä","&auml;")
        testo = replace(testo, "å","&aring;")
        testo = replace(testo, "æ","&aelig;")
        testo = replace(testo, "ç","&ccedil;")
        testo = replace(testo, "è","&egrave;")
        testo = replace(testo, "é","&eacute;")
        testo = replace(testo, "ê","&ecirc;")
        testo = replace(testo, "ë","&euml;")
        testo = replace(testo, "ì","&igrave;")
        testo = replace(testo, "í","&iacute;")
        testo = replace(testo, "î","&icirc;")
        testo = replace(testo, "ï","&iuml;")
        testo = replace(testo, "ð","&eth;")
        testo = replace(testo, "ñ","&ntilde;")
        testo = replace(testo, "ò","&ograve;")
        testo = replace(testo, "ó","&oacute;")
        testo = replace(testo, "ô","&ocirc;")
        testo = replace(testo, "õ","&otilde;")
        testo = replace(testo, "ö","&ouml;")
        testo = replace(testo, "÷","&divide;")
        testo = replace(testo, "ø","&oslash;")
        testo = replace(testo, "ù","&ugrave;")
        testo = replace(testo, "ú","&uacute;")
        testo = replace(testo, "û","&ucirc;")
        testo = replace(testo, "ü","&uuml;")
        testo = replace(testo, "ý","&yacute;")
        testo = replace(testo, "þ","&thorn;")
        testo = replace(testo, "ÿ","&yuml;")
        testo = replace(testo, " ","")
        testo = replace(testo, "€","&euro;")
        testo = replace(testo,"¢","&cent;")
        testo = replace(testo,"£","&pound;")
        testo = replace(testo,"¤","&curren;")
        testo = replace(testo,"¥","&yen;")
        testo = replace(testo,"¦","&brvbar;")
        testo = replace(testo, Chr(13) & Chr(10), "
")
        testo = replace(testo, vbCrlf, "
")
        End If
        SostCarSpecialiTextAreaEdit = testo
End Function 

mentre per l'editing, nella rappresentazione del testo prelevato da database access 2000, lo inserisco in una textarea modificandolo con la funzione:

Function ReverseSostCarSpecialiTextAreaEdit(ByVal testo)
        If testo <> "" Then
        testo = replace(testo,"
", vbCrlf)
        testo = replace(testo,"", " ")
        testo = replace(testo,"&pound;","£")
        testo = replace(testo,"&curren;","¤")
        testo = replace(testo,"&yen;","¥")
        testo = replace(testo,"&brvbar;","¦")
        testo = replace(testo,"&yuml;", "ÿ")
        testo = replace(testo,"&thorn;", "þ")
        testo = replace(testo,"&yacute;", "ý")
        testo = replace(testo,"&uuml;", "ü")
        testo = replace(testo,"&ucirc;", "û")
        testo = replace(testo,"&uacute;", "ú")
        testo = replace(testo,"&ugrave;", "ù")
        testo = replace(testo,"&oslash;", "ø")
        testo = replace(testo,"&divide;", "÷")
        testo = replace(testo,"&ouml;", "ö")
        testo = replace(testo,"&otilde;", "õ")
        testo = replace(testo,"&ocirc;", "ô")
        testo = replace(testo,"&oacute;", "ó")
        testo = replace(testo,"&ograve;", "ò")
        testo = replace(testo,"&ntilde;", "ñ")
        testo = replace(testo,"&eth;", "ð")
        testo = replace(testo,"&iuml;", "ï")
        testo = replace(testo,"&icirc;", "î")
        testo = replace(testo,"&iacute;", "í")
        testo = replace(testo,"&igrave;", "ì")
        testo = replace(testo,"&euml;", "ë")
        testo = replace(testo,"&ecirc;", "ê")
        testo = replace(testo,"&eacute;", "é")
        testo = replace(testo,"&egrave;", "è")
        testo = replace(testo,"&ccedil;", "ç")
        testo = replace(testo,"&aelig;", "æ")
        testo = replace(testo,"&aring;", "å")
        testo = replace(testo,"&auml;", "ä")
        testo = replace(testo,"&atilde;", "ã")
        testo = replace(testo,"&acirc;", "â")
        testo = replace(testo,"&aacute;", "á")
        testo = replace(testo,"&agrave;", "à")
        testo = replace(testo,"&szlig;", "ß")
        testo = replace(testo,"&THORN;", "Þ")
        testo = replace(testo,"&Yacute;", "Ý")
        testo = replace(testo,"&Uuml;", "Ü")
        testo = replace(testo,"&Ucirc;", "Û")
        testo = replace(testo,"&Uacute;", "Ú")
        testo = replace(testo,"&Ugrave;", "Ù")
        testo = replace(testo,"&Oslash;", "Ø")
        testo = replace(testo,"&times;", "×")
        testo = replace(testo,"&Ouml;", "Ö")
        testo = replace(testo,"&Otilde;", "Õ")
        testo = replace(testo,"&Ocirc;", "Ô")
        testo = replace(testo,"&Oacute;", "Ó")
        testo = replace(testo,"&Ograve;", "Ò")
        testo = replace(testo,"&Ntilde;", "Ñ")
        testo = replace(testo,"&ETH;", "Ð")
        testo = replace(testo,"&Iuml;", "Ï")
        testo = replace(testo,"&Icirc;", "Î")
        testo = replace(testo,"&Iacute;", "Í")
        testo = replace(testo,"&Igrave;", "Ì")
        testo = replace(testo,"&Euml;", "Ë")
        testo = replace(testo,"&Ecirc;", "Ê")
        testo = replace(testo,"&Eacute;", "É")
        testo = replace(testo,"&Egrave;", "È")
        testo = replace(testo,"&Ccedil;", "Ç")
        testo = replace(testo,"&AElig;", "Æ")
        testo = replace(testo,"&Aring;", "Å")
        testo = replace(testo,"&Auml;", "Ä")
        testo = replace(testo,"&Atilde;", "Ã")
        testo = replace(testo,"&Acirc;", "Â")
        testo = replace(testo,"&Aacute;", "Á")
        testo = replace(testo,"&agrave;", "À")
        testo = replace(testo,"&iquest;", "¿")
        testo = replace(testo,"&frac34;", "¾")
        testo = replace(testo,"&frac12;", "½")
        testo = replace(testo,"&frac14;", "¼")
        testo = replace(testo,"&raquo", "»")
        testo = replace(testo,"&ordm;", "º")
        testo = replace(testo,"&sup1;", "¹")
        testo = replace(testo,"&cedil;", "¸")
        testo = replace(testo,"&middot;", "·")
        testo = replace(testo,"&para;", "¶")
        testo = replace(testo,"&micro;", "µ")
        testo = replace(testo,"&acute;", "´")
        testo = replace(testo,"&sup3;", "³")
        testo = replace(testo,"&sup2;", "²")
        testo = replace(testo,"&plusmn;", "±")
        testo = replace(testo,"&deg;", "°")
        testo = replace(testo,"&macr;", "¯")
        testo = replace(testo,"<sup>&reg;</sup>","®")
        testo = replace(testo,"&ndash;","–")
        testo = replace(testo,"&mdash;","—")
        testo = replace(testo,"_","&shy;")
        testo = replace(testo,"¬","&not;")
        testo = replace(testo,"«","&laquo;")
        testo = replace(testo,"ª","&ordf;")
        testo = replace(testo,"<sup>&copy;</sup>", "©")
        testo = replace(testo,"&uml;", "¨")
        testo = replace(testo,"&sect;", "§")
        testo = replace(testo,"&brvbar;", "¦")
        testo = replace(testo,"&yen;","¥")
        testo = replace(testo,"&curren;", "¤")
        testo = replace(testo,"&pound", "£")
        testo = replace(testo,"&cent;", "¢")
        testo = replace(testo,"&iexcl;", "¡")
        testo = replace(testo,"&gt;", ">")
        testo = replace(testo,"&lt;", "<")
        testo = replace(testo,"&amp;",  "#")
        testo = replace(testo,".", ".")
        testo = replace(testo,"&quot;", """")
        testo = replace(testo,"&lsquo;","‘")
        testo = replace(testo,"&rsquo;","’")
        testo = replace(testo,"&euro;", "€")
        testo = replace(testo,"''", "'")
        End If
        ReverseSostCarSpecialiTextAreaEdit = testo
End Function 

Bene:
se per esempio il testo inserito nel form è un semplice:
1
2
3
4

convertito dalla prima funzione in :
1
2
3
4

nella textarea non compare nulla.

Non capisco come faccia la seconda funzione a cancellare tutto quando la stringa (ho verificato) essere proprio 1
2
3
4
e non nulla.