ある文字列の中に、特定の文字列が含まれているか探す InStr関数
'------------------------------------------------------------------------------
' ある文字列 (string1) の中から指定した文字列 (string2) を検索し、
' 最初に見つかった文字位置 (先頭からその位置までの文字数) を返す文字列処理関数
' InStr([start, ]string1, string2[, compare])
'
' string1 ：ある文字列（調査対象文字列）
' string2 ：探す文字
'------------------------------------------------------------------------------
Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP" ' 検索対象の文字列を定義します。
SearchChar = "P" ' "P" を検索します。
' 文字単位の比較を位置 4 から開始すると、6 が返されます。
MyPos = Instr(4, SearchString, SearchChar, 1)
' ビット単位の比較を位置 1 から開始すると、9 が返されます。
MyPos = Instr(1, SearchString, SearchChar, 0)
' 既定のビット単位の比較を行います(最後の引数を省略した場合)。
MyPos = Instr(SearchString, SearchChar) ' 9 を返します。
MyPos = Instr(1, SearchString, "W") ' 0 を返します。