テキストボックスの選択位置等特定

環境/言語:[OS：XP 言語：VB.NET]
分類:[.NET]

お世話になります。

VB.NETを勉強中のトマトスープと申します。
現在VisualStudio2008で勉強中です。

まず状況ですが・・・

フォーム上にはテキストボックスが２つとボタンが１つあります。
テキストボックス１には例として「あいうえお」と入力します。
次にテキストボックス１のテキスト中から「うえ」を選択します。
そしてボタンを押すと、テキストボックス２に「あい１うえ１お」
というように選択の開始位置と文字を入れたいのですが

以下コードですが・・・

'選択されている文字の取得
str_sarch = テキストボックス１.SelectedText

これで選択された文字が取得できる所まではこれたのですが
ここからテキストボックス２に「あい１うえ１お」という
処理の部分がどうしても分かりません。

どなかた教えてください。
よろしくお願いします。

'検索対象文字列
Dim strName As String = txt_Terop.Text

'検索する文字
Dim strSearchChar As String = txt_Terop.SelectedText

'検索する文字が見つかった文字位置
Dim lngPoint As Long

'位置を探す
lngPoint = strName.IndexOf(strSearchChar)

'まず選択文字の後ろ側を１をインサート
テキストボックス２ = テキストボックス１.Text.Insert _
(テキストボックス１.SelectedText.Length + lngPoint, １)

'次の選択文字の前側に１をインサート
テキストボックス２ = テキストボックス２.Text.Insert(lngPoint,１)

これでなんとか「あい１うえ１お」とすることができたのですが
今度は、「あいうえおあいうえお」となった際に
後ろの「あいうえお」を選択しボタンを押すと
「１あいうえお１あいうえお」となってしまいます。

文字列の検索方法を変えるか
選択されている文字の開始位置と終了位置の取得等
何かしらの方法を探しておりますが
いい方法が見つからず困っております。

どなたかお知恵を御貸いただければと思います。

よろしくお願いします。

■No29647に返信(トマトスープさんの記事)
> Dim strSearchChar As String = txt_Terop.SelectedText

SelectedText で得た文字列を探すよりも、
SelectionStart / SelectionLength で
切り出す位置を調べた方が手っ取り早いかと。

魔界の仮面弁士様

ご返事ありがとうございます。

SelectionStart / SelectionLength

こちら２点早速調べてコードに取り込んでみました。
なんとか思っていた通りの結果が返ってくるようになりました。

魔界の仮面弁士様、アドバイスありがとうございました。