Funcion para quitar acentos
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