Option Explicit
 
Private Sub Form_Load()
    Form2.Show
End Sub

Option Explicit
 
Dim Position As Long
 
Private Sub Command1_Click()
    If Position = 0 Then
        Position = InStr(1, UCase(Form1.RichTextBox1.Text), UCase( _
          txt_Suchwort.Text), _
            vbTextCompare)
    Else
        Position = InStr(Position, UCase(Form1.RichTextBox1.Text), _
            UCase(txt_Suchwort.Text), vbTextCompare)
    End If
    If Position > 0 Then
        Form1.RichTextBox1.SetFocus
        Form1.RichTextBox1.SelStart = Position - 1
        Form1.RichTextBox1.SelLength = Len(txt_Suchwort.Text)
        Position = Position + Len(txt_Suchwort.Text)
    Else
        Position = 0
        Call MsgBox("Suche beendet", vbInformation, "Suchergebnis")
    End If
End Sub
 
Private Sub txt_Suchwort_Change()
    Position = 0
End Sub