Error tonto

[Liz26]

Hola !!!!!!

intento recorrer una cadena de caracteres para buscar acentos. La finalidad es realizar una búsqueda por hipertexto, es decir, que de igual introducir acentos o no, y en ambos casos encuentre lo mismo.

Recorro la cadena así:

For I=1 To Len(Autor)
Aux = Autor(I)
Autor(I) = QuitarAcentos (Aux)
Next

Me da error y creo que es porque no referencio bien el carácter de la cadena. Se que es una tontería, pero no recuerdo cómo se hacía.

Podéis ayudarme ??

Ah!!! pongo la función QuitarAcentos por si le sirve a alguien:

Function QuitarAcentos (Aux)
Select Case Aux
Case "Á","À","Â","Ä"
QuitarAcentos = "A"
Case "É","È","Ê","Ë"
QuitarAcentos = "E"
Case "Í","Ì","Î","Ï"
QuitarAcentos = "I"
Case "Ó","Ò","Ô","Ö"
QuitarAcentos = "O"
Case "Ú","Ù","Û","Ü"
QuitarAcentos = "U"
Case "Ý"
QuitarAcentos = "Y"
Case "á","à","â","ä"
QuitarAcentos = "a"
Case "é","è","ê","ë"
QuitarAcentos = "e"
Case "í","ì","î","ï"
QuitarAcentos = "i"
Case "ó","ò","ô","ö"
QuitarAcentos = "o"
Case "ú","ù","û","ü"
QuitarAcentos = "u"
Case else
QuitarAcentos = Aux
End Select
End Function

Muchas gracias.

[Liz26]

bueno, pues utilizando el buscador encontré una función y la he modificado a mi caso. Aquí la copio por si a alguien le interesa:

Function QuitarAcentos (Str)
For I=1 To Len(Str)
Aux = Mid (Str, I, 1)
Select Case Aux
Case "Á","À","Â","Ä"
QuitarAcentos = QuitarAcentos & "A"
Case "É","È","Ê","Ë"
QuitarAcentos = QuitarAcentos & "E"
Case "Í","Ì","Î","Ï"
QuitarAcentos = QuitarAcentos & "I"
Case "Ó","Ò","Ô","Ö"
QuitarAcentos = QuitarAcentos & "O"
Case "Ú","Ù","Û","Ü"
QuitarAcentos = QuitarAcentos & "U"
Case "Ý"
QuitarAcentos = QuitarAcentos & "Y"
Case "á","à","â","ä"
QuitarAcentos = QuitarAcentos & "a"
Case "é","è","ê","ë"
QuitarAcentos = QuitarAcentos & "e"
Case "í","ì","î","ï"
QuitarAcentos = QuitarAcentos & "i"
Case "ó","ò","ô","ö"
QuitarAcentos = QuitarAcentos & "o"
Case "ú","ù","û","ü"
QuitarAcentos = QuitarAcentos & "u"
Case "ý"
QuitarAcentos = QuitarAcentos & "y"
Case else
QuitarAcentos = QuitarAcentos & Aux
End Select
Next
End Function


Palabra=QuitarACentos(Palabra)

Hasta lueguito !!!!!!!