Hmmm.... don't see the code above, so:
Private Sub RichTextBox1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RichTextBox1.MouseClick
Dim reg As New Regex("\[[^\]]+]")
Dim matches As MatchCollection
Dim box As RichTextBox
Dim i As Integer
box = DirectCast(sender, RichTextBox)
matches = reg.Matches(Me.RichTextBox1.Text)
For Each mat As Match In matches
If box.SelectionStart > mat.Index AndAlso box.SelectionStart < mat.Index + mat.Length Then
i = box.SelectionStart
box.Select(mat.Index + 1, mat.Length - 2)
box.SelectionBackColor = Color.AliceBlue
box.Select(i, 0)
Exit For
End If
Next
End Sub