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