Ho un problema con questo semplice codice, controllo se nel testo è presente uno dei caratteri indicati nelle array se il carattere è presente risponde carattere trovato
funziona tutto correttamente tranne per il carattere ' non restituisce nessun arrore, come posso fare ?

Grazie

text="l'altro"

testocont=UCase(text)
i=0
ArrPar=array ("@","?","%","€"," ","'",",")
for i=0 to ubound(ArrPar)
if instr(1,testocont,ArrPar(i))>0 then
response.WRITE "Attenzione Carattere Trovato"
end if

i=i+1
next