Dim arrRegisteredCmdsCs(54) As String
Dim iSearchStart As Integer
 For g = 0 To 54
                    Do
                        If txtWriteCode.Find(arrRegisteredCmdsCs(g)) > -1 Then
                            txtWriteCode.SelectionStart = txtWriteCode.Find( _
                              arrRegisteredCmdsCs(g), iSearchStart, _
                              txtWriteCode.TextLength, RichTextBoxFinds.None)
                            txtWriteCode.SelectionColor = Color.Blue
                        End If
                        iSearchStart = Val(txtWriteCode.SelectionStart) + Val( _
                          txtWriteCode.SelectionLength) - 1
                    Loop Until txtWriteCode.Find(arrRegisteredCmdsCs(g), _
                    iSearchStart, txtWriteCode.TextLength, _
                    RichTextBoxFinds.None) = -1
                Next

Hey, was geht?