Color coding

[Mc Brain]

Sure

Option Explicit
 
Private Sub HighlightText(sKeyword As String, iColour As Long)
    Dim nStart As Integer, sPrevChar As String, sNextChar As String
                                               
    nStart = InStr(1, UCase(RichTextBox1.Text), sKeyword, vbTextCompare)
                                                                                  
    Do While nStart <> 0
        If nStart > 1 Then
            sPrevChar = Mid$(RichTextBox1.Text, nStart - 1, 1)
        Else
            sPrevChar = " "
        End If
                                                        
        If Len(RichTextBox1.Text) >= nStart + Len(sKeyword) Then
            sNextChar = Mid$(RichTextBox1.Text, nStart + Len(sKeyword), 1)
        Else
            sNextChar = " "
        End If
                                                           
        If (sPrevChar = Chr(32) Or sPrevChar = Chr(13) Or _
        sPrevChar = Chr(10) Or sPrevChar = Chr(9)) And _
        (sNextChar = Chr(32) Or sNextChar = Chr(13) Or _
        sNextChar = Chr(10) Or sNextChar = Chr(9) Or sNextChar = ".") Then
            With RichTextBox1
                .SelStart = nStart - 1
                .SelLength = Len(sKeyword)
                .SelColor = iColour
                .SelText = sKeyword
                .SelStart = Len(RichTextBox1.Text)
                .SelColor = iColour
            End With
        End If
                                                  
        nStart = InStr(nStart + Len(sKeyword), UCase(RichTextBox1.Text), sKeyword, vbTextCompare)
    Loop
End Sub
 
Private Sub RichTextBox1_Change()
    With RichTextBox1
       .SelStart = 0
       
       .SelColor = vbBlack
       .SelStart = Len(.Text)
    End With
    
                                       
    ' Add more custom words here
    HighlightText "END", vbRed
    HighlightText "GOTO", vbYellow
    HighlightText "IF", vbBlue
End Sub

thats what i got i want it to go back to black after i type say GOTO or IF or END...

It does a little flicker... but can't think of another solution without messing around too much with the code.

Option Explicit
 
Private Sub UnHighlightText(iColour As Long)
    Dim iPos As Long
    
    With RichTextBox1
        iPos = .SelStart
        .SelStart = 0
        .SelLength = Len(.Text)
        .SelColor = iColour
        .SelStart = iPos - 1
    End With
End Sub
 
Private Sub HighlightText(sKeyword As String, iColour As Long)
    Dim nStart As Integer, sPrevChar As String, sNextChar As String
    Dim iPos As Long
                                               
    nStart = InStr(1, UCase(RichTextBox1.Text), sKeyword, vbTextCompare)
                                                                                  
    Do While nStart <> 0
        If nStart > 1 Then
            sPrevChar = Mid$(RichTextBox1.Text, nStart - 1, 1)
        Else
            sPrevChar = " "
        End If
                                                        
        If Len(RichTextBox1.Text) >= nStart + Len(sKeyword) Then
            sNextChar = Mid$(RichTextBox1.Text, nStart + Len(sKeyword), 1)
        Else
            sNextChar = " "
        End If
                                                           
        If (sPrevChar = Chr(32) Or sPrevChar = Chr(13) Or _
        sPrevChar = Chr(10) Or sPrevChar = Chr(9)) And _
        (sNextChar = Chr(32) Or sNextChar = Chr(13) Or _
        sNextChar = Chr(10) Or sNextChar = Chr(9) Or sNextChar = ".") Then
            With RichTextBox1
                iPos = .SelStart
                .SelStart = nStart - 1
                .SelLength = Len(sKeyword)
                .SelColor = iColour
                .SelText = sKeyword
                .SelStart = Len(RichTextBox1.Text)
                .SelColor = iColour
                .SelStart = iPos
            End With
        End If
                                                  
        nStart = InStr(nStart + Len(sKeyword), UCase(RichTextBox1.Text), sKeyword, vbTextCompare)
    Loop
End Sub
 
Private Sub RichTextBox1_Change()
    With RichTextBox1
       .SelStart = 0
       
       .SelColor = vbBlack
       .SelStart = Len(.Text)
    End With
    
                                       
    ' Add more custom words here
    UnHighlightText vbBlack
    HighlightText "END", vbRed
    HighlightText "GOTO", vbYellow
    HighlightText "IF", vbBlue
End Sub