'Cambia los caracteres con tildes y ñ por el nombre en HTML
    Function tildes2Entities(texto)
        If not EsNulo(texto) Then
            texto = Replace(texto, "¡", "¡")
            texto = Replace(texto, "¿", "¿")
            'texto = Replace(texto, "'", "'")

            texto = Replace(texto, "á", "á")
            texto = Replace(texto, "é", "é")
            texto = Replace(texto, "í", "í")
            texto = Replace(texto, "ó", "ó")
            texto = Replace(texto, "ú", "ú")
            texto = Replace(texto, "ñ", "ñ")
            texto = Replace(texto, "ç", "ç")

            texto = Replace(texto, "Á", "Á")
            texto = Replace(texto, "É", "É")
            texto = Replace(texto, "Í", "Í")
            texto = Replace(texto, "Ó", "Ó")
            texto = Replace(texto, "Ú", "Ú")
            texto = Replace(texto, "Ñ", "Ñ")
            texto = Replace(texto, "Ç", "Ç")

            texto = Replace(texto, "à", "à")
            texto = Replace(texto, "è", "è")
            texto = Replace(texto, "ì", "ì")
            texto = Replace(texto, "ò", "ò")
            texto = Replace(texto, "ù", "ù")

            texto = Replace(texto, "À", "À")
            texto = Replace(texto, "È", "È")
            texto = Replace(texto, "ÃŒ", "Ì")
            texto = Replace(texto, "Ã’", "Ò")
            texto = Replace(texto, "Ù", "Ù")

            texto = Replace(texto, "ä", "ä")
            texto = Replace(texto, "ë", "ë")
            texto = Replace(texto, "ï", "ï")
            texto = Replace(texto, "ö", "ö")
            texto = Replace(texto, "ü", "ü")

            texto = Replace(texto, "Ä", "Ä")
            texto = Replace(texto, "Ë", "Ë")
            texto = Replace(texto, "Ï", "Ï")
            texto = Replace(texto, "Ö", "Ö")
            texto = Replace(texto, "Ãœ", "Ü")

            texto = Replace(texto, "â", "â")
            texto = Replace(texto, "ê", "ê")
            texto = Replace(texto, "î", "î")
            texto = Replace(texto, "ô", "ô")
            texto = Replace(texto, "û", "û")

            texto = Replace(texto, "Â", "Â")
            texto = Replace(texto, "Ê", "Ê")
            texto = Replace(texto, "ÃŽ", "Î")
            texto = Replace(texto, "Ô", "Ô")
            texto = Replace(texto, "Û", "Û")
        Else
            texto = ""
        End If
        tildes2Entities = texto
    End Function

Chars with accents to HTML Entities
Caracteres con tildes o acentos pasados a HTML Entities

Accents/tildes to HTML Entities

ASP