quitar acentos a cadena

[loangb]

hola...si me pueden ayudar, no he podido encontrar la forma de quitar los acentos a una cadena para hacer una busqueda.
Gracias
Lorena

[u_goldman]

Se me ocurre algo así:

Function QuitaAcentos(cadena)

cadena= replace(cadena, "á", "a")
cadena= replace(cadena, "é", "e")
cadena= replace(cadena, "í", "i")
cadena= replace(cadena, "ó", "o")
cadena= replace(cadena,"ú", "u")

QuitaAcentos= cadena

End Function

mi_cadena= "solución"

mi_cadena= QuitaAcentos(mi_cadena)

Te debería regresar "solucion"

Salu2,