Ciclo for su stringa caratteri speciali

[slay]

ciao a tutti ho questo codice:

srtr1=rs(""&campoora&"")
        listacaratteri= Array("/","'","£","%","&","!","|","(",")","_","\","~")
        for iii = 0 to Ubound(listacaratteri)
        carattereora=listacaratteri(iii)
        
            IF INSTR(srtr1,carattereora) > 0 THEN 
                caratterispeciali="si"
            ELSE 
                caratterispeciali="no"
            END IF 
        
        next 

mi controlla se una stringa contiente i caratteri speciali presente in listacaratteri però non funziona benissimo ad esempio se la stringa contiene ~ funziona ma se la stringa contiene _ oppure ( o ) non funziona .. avete qualche idea del perchè?