change color

[Ember]

[B]Dim y As Integer[/B]
    Dim i As Long
    With RichTextBox1
        For i = 1 To Len(.Text)
            If Mid(.Text, i, 2) = "<<" And i > 2 Then
              [B]y = InStrRev(.Text, " ", i - 2)[/B]
                .SelStart = [B]y[/B]   'i - 2 -
                .SelLength = InStr(i, .Text, ">>")  -[B] y[/B] + 2 
                .SelColor = vbBlue
                .SelBold = True
            End If
        Next
    End With

Is what it should be like.