InStr([start, ]string1, string2[, compare])

codice:
Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP"   

SearchChar = "P"   ' Search for "P".
' A textual comparison starting at position 4. Returns 6.
MyPos = Instr(4, SearchString, SearchChar, 1)   
' A binary comparison starting at position 1. Returns 9.
MyPos = Instr(1, SearchString, SearchChar, 0)
' Comparison is binary by default (last argument is omitted).
MyPos = Instr(SearchString, SearchChar)   ' Ritorna 9.
MyPos = Instr(1, SearchString, "W")   ' Returns 0
Toeke