Некорректное отображение значения строковой переменной в RichTextBox'e

'//////////////////////////////////////////////
'это моя прoцедура
Public Sub GetReserveWord()
Const PARSECHAR = ' '
Dim ii As Integer, LenString As Integer, nn As Integer, nnn As String
    Set m_objEditor = New CEditor
    
    m_objEditor.SetEditorObjects Me.txtGlav
 
For ii = 1 To 1545
      nn = InStr(1, MyStringArray(ii), PARSECHAR)
      m_objEditor.AddEditorWord Mid$(MyStringArray(ii), 1, nn - 1), vbBlue ' ПРОБЛЕМА
 
'    m_objEditor.AddEditorWord 'COMMAND ', vbRed        
'    m_objEditor.AddEditorWord 'ERROR ', vbBlue
'    m_objEditor.AddEditorWord 'COMMENT ', vbGreen
 
Next ii
End Sub
 
' это код класса для подсветки синтаксиса не мой
'////////////////////////////////////////////////////////////////////////
'Light RTF editor class
'Written by adi barda israel (adib@malam.com)
 
'This is a light version of my editor class
'The complete class also supports VB like intelisence
 
Option Explicit
 
Private Type InterfaceData
    Class As String
    method As String
    IsMethod As Boolean
    ToolTip As String
End Type
Private m_Interface() As InterfaceData
 
Const abGREEN = 32768
 
Private Type POINTAPI
    X As Long
    Y As Long
End Type
 
Private Type EditorWords
    color As Long
    wrd As String
End Type
Private m_arrWords() As EditorWords
 
Private Declare Function GetCaretPos Lib 'user32' (lpPoint As POINTAPI) As Long
 
Private m_bPaintText As Boolean
 
Private m_iPicHeight As Long
Private WithEvents m_txtScript As RichTextLib.RichTextBox
'Private m_DebugTextbox As RichTextLib.RichTextBox
 
Public Sub AddEditorWord(ByVal wrd As String, ByVal color As Long)
 
    Dim i  As Long
    
    i = UBound(m_arrWords())
    
    If m_arrWords(0).wrd = '' Then
        i = 0
    Else
        i = i + 1
    End If
    
    ReDim Preserve m_arrWords(i)
    m_arrWords(i).wrd = wrd
    m_arrWords(i).color = color
    
    
End Sub
 
Public Sub SetEditorObjects(ByRef objRTF As RichTextLib.RichTextBox) ',
                            'ByRef DebugTextbox As RichTextLib.RichTextBox)
                           
    'Init editor objects
    Set m_txtScript = objRTF 'main script text box
    'Set m_DebugTextbox = DebugTextbox 'need this for smooth painting
    
    ClearScript
    
End Sub
 
Public Sub PaintText()
 
    Dim iPos As Long
    Dim i As Long
    Dim iCnt As Long
    
    Dim arrWrd() As String
    
    
   
    ReDim arrWrd(0)
    iCnt = 0
    
    iPos = m_txtScript.SelStart
    
    For i = 0 To UBound(m_arrWords())
    
        If m_arrWords(i).wrd = '' Then
            Exit For
        End If
        
        ReDim Preserve arrWrd(iCnt)
        arrWrd(iCnt) = m_arrWords(i).wrd
        
        'Is it the last wor >            If iStart > 0 Then
            
                'Check if its hebrew letter
                If Mid$(sRTF, iStart - 1, 1) <> ' ' Then
                
                    'Check && update the color table
                    iColor = SetColorTable(sRTF, color)
                    
                    iStart = InStr(iStart, sRTF, wrd, vbTextCompare)
                    iEnd = InStr(iStart, sRTF, vbNewLine)
                    iCommaPlace = InStr(iStart, sRTF, Chr$(34))
                    
                    If iEnd > 0 And (iCommaPlace = 0 Or iCommaPlace > iEnd) Then
                        sRow = Mid$(sRTF, iStart, iEnd - iStart)
                        sNewRow = GetCleanRow(sRow)
                        sRTF = Replace$(sRTF, sRow, 'cf' & iColor & ' ' & sNewRow & 'cf0', , , vbTextCompare)
                        iEnd = InStr(iStart, sRTF, vbNewLine)
                    End If
                    
                    
                    iStart = iEnd
                    
                Else
                
                    iStart = iStart + 1
                    
                End If 'Not hebrew letter
                
            End If 'iStart>0
            
        Loop Until iStart = 0
        
        .TextRTF = sRTF
        
    End With
    
 
End Sub
 
Private Sub ColorStrings(ByVal objRTF As RichTextLib.RichTextBox, ByVal wrd As String, ByVal color As Long)
 
    Dim i As Long
    Dim iStart As Long
    Dim iEnd As Long
    Dim iBreak As Long
    Dim sRTF As String
    Dim sRow As String
    Dim sNewRow As String
    Dim iColor As Long
    
    With objRTF
        
        sRTF = .TextRTF
        
        iStart = 1
        Do
            iStart = InStr(iStart, sRTF, wrd, vbTextCompare)
            If iStart > 0 Then
            
                'Check && update the color table
                iColor = SetColorTable(sRTF, color)
                
                iStart = InStr(iStart, sRTF, wrd, vbTextCompare)
                iEnd = InStr(iStart + 1, sRTF, wrd, vbTextCompare)
                iBreak = InStr(iStart + 1, sRTF, vbNewLine)
                
                If (iEnd > 0) And ((iBreak > iEnd) Or (iBreak = 0)) Then
                    
                    sRow = Mid$(sRTF, iStart, iEnd - iStart + 1)
                    'sNewRow = GetCleanRow(sRow)
                    sNewRow = sRow 'just for backward compatibility
                    sRTF = Replace$(sRTF, sRow, 'cf' & iColor & ' ' & sNewRow & 'cf0', , , vbTextCompare)
                    'iEnd = InStr(iStart, sRTF, vbNewLine)
                    ' ltrch  '20
                    
                    iEnd = InStr(iEnd + Len('cf' & iColor & ' ' & sNewRow & 'cf0') - Len(sNewRow), sRTF, wrd)
                End If
                
                
                iStart = iEnd
                
                
            End If 'iStart>0
            
        Loop Until iStart = 0
        
        .TextRTF = sRTF
        
    End With
    
 
End Sub