RichTextBox1.SelectionStart = RichTextBox1.Find("Palabra")
RichTextBox1.SelectionColor = Color.Yellow ' El color que quieras

Public Class Form1
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If RichTextBox1.Text = "" Then
            MessageBox.Show("No se puede compilar un texto vacio")
            Return
        End If
        If SaveFileDialog1.ShowDialog = DialogResult.OK Then
            RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
            ProgressBar1.Visible = True
            Timer1.Start()
        End If
        Form1.ActiveForm().Text() = "Batch Creator" + SaveFileDialog1.FileName
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)
        End If
        Form1.ActiveForm().Text() = "Batch Creator" + OpenFileDialog1.FileName
    End Sub
 
    Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(10)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Timer1.Stop()
            MessageBox.Show("Se ha creado satisfactoriamente el archivo .bat en la direccion especificada")
            ProgressBar1.Value = ProgressBar1.Minimum
            ProgressBar1.Visible = False
            Return
        End If
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If RichTextBox1.Text = "" Then
            MessageBox.Show("Ya hay un nuevo documento abierto")
            Return
        End If
        Form2.Show()
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Form3.SHOW()
    End Sub
 
    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
 
    End Sub
 
End Class

Private Sub RichTextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.LostFocus
 
RichTextBox1.Find("@")
RichTextBox1.SelectionColor = Color.Red
 
End Sub

Dim lastPos As Integer ' Donde se estaba escribiendo
    Dim nLine As Integer   ' Linea donde se trabaja
    Dim start As Integer   ' Indice del principio de la linea dentro del texto
    Dim final As Integer   ' Fin de la linea (largo de la linea)
 
    Private Sub rtf_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rtf.TextChanged
        ' "@" se colorea                         (NOTA: Funciona a medias, con el tema 
        ' "@asfdasd" : @ se colorea        ( de que si se borra queda el color que estaba)
        colorear("@", Color.Red, False, False)
        ' "echo" se colorea
        ' "malechor" : echo no se colorea
        colorear("echo", Color.Blue, False)
    End Sub
 
    Sub colorear(ByVal clave As String, ByVal color As Color, Optional ByVal spaceAntes As Boolean = True, Optional ByVal spaceDespues As Boolean = True)
        Try
            ' Para recordar en que posicion estaba y no provocar problemas
            lastPos = rtf.SelectionStart
            ' Obtenemos la linea a trabajar
            nLine = rtf.GetLineFromCharIndex(lastPos)
            ' Obtenemos el indice de la linea (indice dentro de todo el texto, no conviene separar la linea en otra variable)
            start = rtf.GetFirstCharIndexOfCurrentLine()
            ' establecemos el limite para buscar la palabra clave
            final = rtf.Lines(nLine).Length
 
            ' Para saber si se tiene que escribir la palabra clave por separado
            If spaceAntes Then clave = " " & clave
            If spaceDespues Then clave = clave & " "
 
            ' Buscamos la palabra clave, si no esta, no hacemos nada
            If Not rtf.Text.IndexOf(clave, start, final) = -1 Then
                rtf.SelectionStart = rtf.Text.IndexOf(clave, start, final)
                rtf.SelectionLength = clave.Length ' Para no colorear demas....
                rtf.SelectionColor = color
            End If
 
            ' Volvemos a donde se estaba escribiendo, y al color normal
            rtf.SelectionStart = lastPos
            rtf.SelectionLength = 0
            rtf.SelectionColor = rtf.ForeColor
        Catch ex As Exception
 
        End Try
    End Sub