３３．文字列を検索する
＜ 説明 ＞
文字列の検索が出来る関数、Instr関数を使用します。
引数は以下の通りです。
Instr(検索の開始位置、検索対象の文字列、検索する文字、比較モード）
戻り値：存在しなかったら0がかえる
存在したらその文字の先頭番号がかえる
< ＳＡＭＰＬＥ ＞
’サンプルではコマンドボタンが１つ配置された状態です。
Private Sub Form_Load()
Text1.Text = "これはテストです"
End Sub
Private Sub Command1_Click()
Dim nStart As
Long '検索の開始位置
Dim Point As
Long '見つかった文字の位置
Dim nString As
String '検索する文字列
nString = "テスト"
nStart = 1
'検索開始
Point = InStr(nStart, Text1.Text,
nString, vbTextCompare)
'検索した文字列の位置をテキストに表示
Text2.Text = Point
End Sub