文字検索でドラッグした状態にするには？ (ID:120261)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 初めまして。 文字を検索して、その文字が見つかれば文字をドラッグした状態にしたいのですが、どのようにすれば良いのでしょうか？ 検索は↓のようにしています。 Private Sub search_Click() Dim Text As String Dim FindText As String Dim Found As Long '検索する文字 FindText = Text1.Text 'ファイルの読み取りと検索 Text = Form1.txtbox.Text Found = InStr(sText, sFindText) '結果 If Found = 0 Then MsgBox "見つかりません。" Else MsgBox "見つかりました。" End If End Sub