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 !!!!!!!
