Sub SetKeyword(strKey As String, RtxtName As RichTextBox)
    With RtxtName
        FindText = InStr(1, RtxtName.Text, strKey, vbTextCompare)
        If FindText > 0 Then
            .SelStart = FindText - 1
            .SelLength = Len(strKey) - 1
            .SelBold = True
            .SelItalic = True
            .SelColor = QBColor(2)

            .SelStart = Len(.Text)
            .SelColor = vbBlack

            .SelStart = Len(.Text)
            .SelColor = vbBlack
            .SelBold = False
            .SelItalic = False
        End If
    End With
End Sub