Evitar acentos y Ñ en Forms

[RsOfT]

Utiliza esta función:

Código:

    Private Function Normaliza_Texto(ByVal strCadena As String) As String
        '--Quitando ñ minúscula--
        strCadena = Replace(strCadena, "ñ", "n")
        '------------------------

        '--Quitando Ñ mayúscula--
        strCadena = Replace(strCadena, "Ñ", "N")
        '------------------------

        '--Quitando acentros a las vocales minúsculas--
        strCadena = Replace(strCadena, "á", "a")
        strCadena = Replace(strCadena, "é", "e")
        strCadena = Replace(strCadena, "í", "i")
        strCadena = Replace(strCadena, "ó", "o")
        strCadena = Replace(strCadena, "ú", "u")
        '----------------------------------------------

        '--Quitando acentros a las vocales mayúsculas--
        strCadena = Replace(strCadena, "Á", "A")
        strCadena = Replace(strCadena, "É", "E")
        strCadena = Replace(strCadena, "Í", "I")
        strCadena = Replace(strCadena, "Ó", "O")
        strCadena = Replace(strCadena, "Ú", "U")
        '----------------------------------------------

        Return strCadena
    End Function