Visual Basic

Dim Search, Where   ' Declare variables.<br />
       ' Get search string from user.<br />
       Search = InputBox("Enter text to be found:")<br />
       Where = InStr(RichTextBox1.Text, Search)     ' Find string in text.<br />
       If Where Then   ' If found,<br />
           RichTextBox1.Select()<br />
           RichTextBox1.SelectedText = Where - 1   ' set selection start and<br />
           RichTextBox1.SelectionLength = Len(Search)   ' set selection length.<br />
       Else<br />
           MsgBox("String not found.")  ' Notify user.<br />
       End If

' Open file directly into Ms word...<br />
Dim appWordRtf As Word.Application = _<br />
New Word.Application<br />
<br />
appWordRtf.Documents.Open(FilePath)<br />
appWordRtf.Visible = True