With RichTextBox1
    .Visible = False
    Do
      sPos = .Find(ge_suchterText, 1)
      If sPos > 0 Then 
          .SelStart = sPos
          .SelLength = Len(ge_suchterText)
          .SelText = ""
        End If
      End If
    Loop Until sPos < 1
    .Visible = True
  End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de