Quitar acentos

[tammander]

Y para la eliminacion de acentos yo usaria expresiones regulares:

Código:

Function reemplaza(texto, patrn, replStr)    
        Dim regEx
        Set regEx = New RegExp            ' Crea una expresión regular.    
        regEx.Pattern = patrn            ' Establece el modelo.    
        regEx.IgnoreCase = True            ' Hace distinción entre mayúsculas y minúsculas.   
        reemplaza = regEx.Replace(texto, replStr)   ' Realiza el reemplazo. 
        set regEx = nothing
End Function

Su uso:

Código:

function EliminarAcentos(APELLIDOS)
dim texto
texto = APELLIDOS
if len(texto) <> 0 then
      texto = reemplaza(texto,"[ÀÁÄáàä]","A")
      texto = reemplaza(texto,"[ÈÉËèéë]","E")
      texto = reemplaza(texto,"[ÌÍÏìíï]","I")
      texto = reemplaza(texto,"[ÒÓÖòóö]","O")
      texto = reemplaza(texto,"[ÙÚÜùúü]","U")
end if
  EliminarAcentos = texto
  End Function

Un saludo