Dim PosAnfang, PosEnde As Long
Dim openKlammer As Integer
 
With RText
  PosAnfang = 0
  PosEnde = 10
 
  <font color=green>'Do</font>
  PosAnfang = .Find("(", PosAnfang)
  PosEnde = .Find(")", PosAnfang + 1)
  .SelStart = PosAnfang
  .SelLength = PosEnde - PosAnfang + 1
  .SelColor = vbRed
  <font color=green>'Loop Until lPos < 0</font>
End With