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

[Tempestknight]

if u test that u will see it ****s up

[Tempestknight]

ok that still doesn't do what i want it to... it just keeps going same color like last time

[Mc Brain]

ok that still doesn't do what i want it to... it just keeps going same color like last time

I don't understand what you need then. Can you posted the sample text you want COLORED, please??

[Tempestknight]

ok lol... say if i have

IF T23, @hast23

ok i want that whole line blue but then if i i have

IF T23, @hast23
1: hey

i want IF T23, @hast23 to be blue and the 1: hey to be black

[Mc Brain]

So you want this:

IF T23, @hast23
1: hey

I think I deserve a couple of votes for all this help

Option Explicit
 
Private Sub UnHighlightText(iColour As Long)
    Dim iPos As Long
    
    With RichTextBox1
        iPos = .SelStart
        .SelStart = 0
        .SelLength = Len(.Text)
        .SelColor = iColour
        If iPos - 1 >= 0 Then
            .SelStart = iPos - 1
        End If
    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
    Dim sLine 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
                iPos = .SelStart
                .SelStart = nStart - 1
                
                sLine = Mid$(.Text, .SelStart + 1)
                If InStr(sLine, vbCr) Then
                    sLine = Left$(sLine, InStr(sLine, vbCr) - 1)
                End If
                
                .SelLength = Len(sLine)
                .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

[Tempestknight]

OK lol that all works thank you. but now when u go and say u have

END

and u wanna change it to

END SCENE

u have it and u try to edit it but it brings you to next line. like u have

END
and add scene to it youll end up with

END S
CENE
because it brings you to next line know why? lol and yes i will vote for you :P lol i already gave u one yesterday