With RichTextBox1
    .Visible = False
    sPos = 0
    Do
      sPos = .Find("x", sPos + 1) 'wenn ein x gefunden wird gehts los
      If sPos > 0 Then
        ePos = .Find("y", sPos + 1) 'wenn ein y gefunden wird hörts auf
        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