splitta la stringa su ogni carattere e cicli verificando se Instr("ABCDEFGHILMNOPQRSTUVZabcdefghilmnopqrstuvz1 234567890",<sing.carattere>) >0 lo tieni, altrimenti lo scarti