Ce ne saranno in giro tante..........io sparo questa:

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), " ")
end if
viacaratterispeciali = stringa
next
end function
Se la stringa da depurare è

stringa

quella depurata è

viacaratterispeciali(stringa)