Estaba leyendo la Biblioteca de Clases,Funciones y Sub-rutinas aca en el foro, y encontre esta funcion, y me acorde de ti.
Código:
Function SinAcentos(str)
Dim intI, strCar, Dev
Dev = ""
For intI = 1 To Len(str)
strCar = Mid(str, intI, 1)
Select Case strCar
Case "à": Dev = Dev & "a"
Case "á": Dev = Dev & "a"
Case "è": Dev = Dev & "e"
Case "é": Dev = Dev & "e"
Case "í": Dev = Dev & "i"
Case "ò": Dev = Dev & "o"
Case "ó": Dev = Dev & "o"
Case "ú": Dev = Dev & "a"
Case Else: Dev = Dev & strCar
End Select
Next
SinAcentos = Dev
End Function
Y se llamaria de esta forma:
Código:
auxiliar = "Ajá, mi papá se subio al camión. AÁ EÉ IÍ OÓ UÚ aá eé ií oó uú ®® ññ"
auxiliar = SinAcentos(auxiliar)
Cualquiera sirve... te toca elegir!
