non ho ben capito comunque per fare il for su una stringa. Adesso ho abbozzato qualcosa sicuramente lo devi modificare a come ti serve
codice:
for i=0 to len(stringa)

strstringa = mid(stringa,i,1)
if InStr(1,stringa,stringa con caratteri validi) > 0 then
'carattere valido
else
'carattere non valido

end if

next