Private Sub Command1_Click()
  <font color=green>' alle Texte zwischen {...} in blauer Farbe 
  ' darstellen</font>
  Dim sPos As Long
  Dim ePos As Long
 
  With RichTextBox1
    sPos = 0
    Do
      sPos = InStr(sPos + 1, .Text, "{")
      If sPos > 0 Then
        ePos = InStr(sPos + 1, .Text, "}")
        If ePos > 0 Then
          .SelStart = sPos
          .SelLength = ePos - sPos - 1
          .SelColor = vbBlue
        End If
      End If
    Loop Until sPos = 0
  End With
End Sub