InStr([start, ]string1, string2[, compare])
Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP" ' 検索対象の文字列。
SearchChar = "P" ' "P" を検索します。
MyPos = Instr(4, SearchString, SearchChar, 1) ' 4 番目の文字からテキスト モードで比較を行います。6 を返します。
MyPos = Instr(1, SearchString, SearchChar, 0) ' 1 番目の文字からバイナリ モードで比較を行います。9 を返します。
MyPos = Instr(SearchString, SearchChar) ' 既定ではバイナリ モードで比較を行います (最後の引数は、省略されます)。9 を返します。
MyPos = Instr(1, SearchString, "W") ' 1 番目の文字からバイナリ モードで比較を行います。"W" はないので、0 を返します。