Dim sTXT(1) As String
 Dim z1 As String = "ok"
 Dim z2 As String = "x"

Sub Färben()
        Dim Farbe As Color
 
        For i = 0 To 1
            If i = 0 Then
                Farbe = Color.Green
            Else
                Farbe = Color.Red
            End If
            RichTextBoxEx1.MarkString(sTXT(i), Farbe, _
            RichTextBoxFinds.MatchCase)
 
            RichTextBoxEx1.SelectionStart = 0
            RichTextBoxEx1.SelectionLength = 0
        Next i
    End Sub

Wer aufhört sich zu verbessern, hört auf gut zu sein.