Mensajes

hola a todos soy nuevo en este blog y la verdad es mi primer blog al que me uno..
mi pregunta es la siguiente

GRAMÁTICA REGULAR # 1:
Terminales = {'+', '-', Dígito}
No Terminales = { <Número>, <Secuencia>, <OtroDigito> }
Inicio = <Número>
Producciones:
<Número> ::= dígito <OtroDigito>

tengo estas dos palabras
Digito y digito a estas dos palabras  le tengo que cambiar  color especificamente color verde y no  me lo cambia aca les dejo parte de mi codificacion no me marca error pero tampoco me lo marta


Public Sub green_work()
        Dim inicio As Integer
        Dim contar_caracteres As Integer = RichTextBox1.Text.Count
        Dim seleccion As String
        Dim final, largo As Integer

        seleccion = guardar_tex.ToLower
        While contar_caracteres > 0
            seleccion = seleccion.Substring(0, contar_caracteres)
            final = seleccion.LastIndexOf("Digito")
            If (final < 0) Then
                contar_caracteres = 0
            Else
                seleccion = seleccion.Substring(0, final - 1)

                inicio = seleccion.LastIndexOf("Digito")
                largo = final - inicio + 1
                If (inicio < 0) Then
                    contar_caracteres = 0
                Else
                    With Me.RichTextBox1
                        .SelectionStart = inicio
                        .SelectionLength = largo
                        .SelectionColor = Color.Green

                    End With
                    contar_caracteres = inicio
                End If
            End If
        End While
    End Sub

es en el lenguaje vb
gracias por la ayuda