ecco la sintassi:
codice:
Instr([Inizio], [Stringa_in_cui_cercare], [Stringa_da_cercare])
in pratica:

codice:
s=InStr(1,UrlDaControllare, "primosito.it")
If s>1 Then
    MsgBox "aaa"
End If
Boolean