Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles RichTextBox1.TextChanged
        Dim lenWord As Integer
        Dim findposstart, findposend, firstpos, oldpos As Integer
        With RichTextBox1
            oldpos = .SelectionStart
            .SelectAll()
            .SelectionColor = Color.Black
            findposstart = 0
            findposstart = .Find("\", findposstart, RichTextBoxFinds.None)
            firstpos = findposstart
            If findposstart <> -1 Then
                findposend = .Find(" ", findposstart, RichTextBoxFinds.None)
            End If
            While findposstart <> -1
                If findposend <> -1 Then
                    .SelectionStart = findposstart
                    .SelectionLength = findposend - findposstart + 1
                    .SelectionColor = Color.Red
 
                    findposstart = .Find("\", findposend + 1, _
                      RichTextBoxFinds.None)
                    If findposstart <> -1 Then
                        findposend = .Find(" ", findposstart, _
                          RichTextBoxFinds.None)
                    End If
                End If
                If findposstart = firstpos Or findposend = -1 Then Exit While
            End While
            .SelectionStart = oldpos
            .SelectionLength = 0
        End With
    End Sub