la funzione sotto riportata sembrerebbe che non esce dal ciclo for inquanto anche se l' if trova un valore corrispondente NON esegue CkeckMod = true.
il valore CkeckMod rimane praticamente sempre a false

vi chiedo un aiuto perche non trovo l'errore anche se un semplice ciclo for next

_____________

IdShare = "sanpietro|colosseo|navona"

Function CkeckMod(Modulo)

Dim i, s
CkeckMod = false
i = 0
s = Split(IdShare, "|")

For i = 0 To UBound(s)

if instr(Ucase(s(i)),Ucase(Modulo)) > 1 Then
CkeckMod = true
exit for
End if

Next

End Function

CkeckMod("colosseo")