For the purposes of PROMOTIC system, it is more usefull to use the method: Pm.StringFind.
n = InStr([start,] string1, string2[, compare])
start | [optional] (Integer) Numeric expression that sets the starting position for each search. If not set, then search begins at the first character position. If compare is specified, then the start argument is required. |
---|---|
string1 | (String) Text string being searched |
string2 | (String) Text string searched for |
compare | [optional] (Integer) Numeric value indicating the kind of comparison to use when evaluating substrings. If not set, then a binary comparison is performed. vbBinaryCompare - perform a binary comparison vbTextCompare - perform a textual comparison |
Dim SearchString, SearchChar, nPos
SearchString = "XXpXXpXXPXXP"
SearchChar = "P"
nPos = InStr(4, SearchString, SearchChar, 1) 'A textual comparison starting at position 4, returns 6
nPos = InStr(1, SearchString, SearchChar, 0) 'a binary comparison starting at position 1, returns 9
nPos = InStr(SearchString, SearchChar) 'binary comparison, returns 9
nPos = InStr(1, SearchString, SearchChar, "W") 'a binary comparison starting at position 1, returns 0 ("W" is not found)