Dim sPos As Long
  Dim ePos As Long
 
  With RichTextBox1
    .Visible = False
    sPos = 0
    Do
      sPos = .Find("(", sPos + 1)
      If sPos > 0 Then
        ePos = .Find(")", sPos + 1)
        If ePos > 0 Then
          .SelStart = sPos
          .SelLength = ePos - sPos + 1
          .SelColor = vbBlue
          sPos = ePos + 1
        End If
      End If
    Loop Until sPos < 1
    .Visible = True
  End With

Gru?
Marco