Questa invece che sostituire ad un carattere speciale uno spazio bianco lo elimina e basta:

codice:
function viacaratterispeciali(txt)
stringa = txt
campione = "abcdefghijklmnopqrstuvwxyzéèàìòù"
for i=1 to len(stringa)
if instr(campione, lcase(trim(mid(stringa, i, 1)))) = 0 then
stringa = replace(stringa, mid(stringa, i, 1), "" )
i = i - 1 
end if
viacaratterispeciali = stringa
next
end function