Ошибка длинный строковый параметр при формировании документа word из excel

Function ExportWord(ByVal iName As String, ByVal iVal As String) As Boolean
    Dim i As Long
    Dim tmp, tmp2, tmp3 As String
    
 tmp = Left(iVal, 255)
 tmp2 = Mid(iVal, 256, 255)
 'iVal
'   tmp3 = Mid(iVal, 512, 255)
    'îñóùåñòâëÿåì çàìåíó òåêñòà â îñíîâíîé äîêóìåíòå
    With iWord.Content.Find                'With ActiveDocument.Content.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        '.Replacement.Style = ActiveDocument.Styles("Çàãîëîâîê 2 Çíàê")  'Âîçâðàùàåò èëè óñòàíàâëèâàåò ñòèëü îáúåêòà.
        .Text = iName
        .Replacement.Text = tmp + tmp2
        .Replacement.Text = iVal
        .Forward = True                     'True, åñëè çàäàíî íàïðàâëåíèå ïîèñêà "Âïåð¸ä". False - â ïðîòèâíîì ñëó÷àå ("Íàçàä").
        .Wrap = 1                           'Âîçâðàùàåò èëè óñòàíàâëèâàåò êîíñòàíòó ïåðå÷èñëåíèÿ WdFindWrap. wdFindContinue = 1
        .Format = False                     'True åñëè â îïåðàöèþ ïîèñêà âêëþ÷åíî ôîðìàòèðîâàíèå, False - â ïðîòèâíîì ñëó÷àå.
        .MatchCase = True                   'True, åñëè â ïðîöåññå ïîèñêà ñëåäóåò ðàçëè÷àòü ðåãèñòð ñèìâîëîâ.
        .MatchWholeWord = True              'True, åñëè â ïðîöåññå ïîèñêà ñëåäóåò èñêàòü çàäàííûé òåêñò êàê îòäåëüíîå ñëîâî, à íå êàê ÷àñòü äðóãîãî ñëîâà.
        .MatchAllWordForms = False          'True, åñëè òðåáóåòñÿ íàéòè âñå ñëîâîôîðìû äëÿ çàäàííîãî ñëîâà.
        .MatchSoundsLike = False            'True, åñëè òðåáóåòñÿ íàéòè ñëîâà ïîõîæèå ïî çâó÷àíèþ íà çàäàííûé òåêñò.
        .MatchWildcards = False             'True, åñëè â ïðîöåññå ïîèñêà èñïîëüçóþòñÿ ðåãóëÿðíûå âûðàæåíèÿ.
 
        'MatchByte                          'True, åñëè â ïðîöåññå ïîèñêà ñëåäóåò ðàçëè÷àòü ñèìâîëû ïîëíîé è ïîëîâèííîé øèðèíû.
        'ParagraphFormat                    'Âîçâðàùàåò èëè óñòàíàâëèâàåò îáúåêò ParagraphFormat.
        'Found                              'True, åñëè â ðåçóëüòàòå âûïîëíåíèÿ ïîèñêà áûëî íàéäåíî ñîîòâåòñòâèå.
        'Font                               'Âîçâðàùàåò èëè óñòàíàâëèâàåò îáúåêò Font çàäàþùèé ôîðìàòèðîâàíèå øðèôòà.
        
        '.Execute Replace:=wdReplaceAll
        .Execute
        
        If .Found Then  'ïðîâåðÿåì, íàéäåíà ëè Çàêëàäêà â äîêóìåíòå Word
            ExportWord = True           'çàêëàäêà íàéäåíà
            .Execute Replace:=2         'wdReplaceAll = 2
        Else
            ExportWord = False          'çàêëàäêà ÍÅ íàéäåíà
        End If
    End With
End Function

Function ExportWord(ByVal iName As String, ByVal iVal As String) As Boolean
    Dim i As Long
    Dim tmp, tmp2, tmp3 As String
    
 tmp = Left(iVal, 255)
 tmp2 = Mid(iVal, 256, 255)
 'iVal
'   tmp3 = Mid(iVal, 512, 255)
    'осуществляем замену текста в основной документе
    With iWord.Content.Find                'With ActiveDocument.Content.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        '.Replacement.Style = ActiveDocument.Styles("Заголовок 2 Знак")  'Возвращает или устанавливает стиль объекта.
        .Text = iName
        .Replacement.Text = tmp + tmp2
        .Forward = True                     'True, если задано направление поиска "Вперёд". False - в противном случае ("Назад").
        .Wrap = 1                           'Возвращает или устанавливает константу перечисления WdFindWrap. wdFindContinue = 1
        .Format = False                     'True если в операцию поиска включено форматирование, False - в противном случае.
        .MatchCase = True                   'True, если в процессе поиска следует различать регистр символов.
        .MatchWholeWord = True              'True, если в процессе поиска следует искать заданный текст как отдельное слово, а не как часть другого слова.
        .MatchAllWordForms = False          'True, если требуется найти все словоформы для заданного слова.
        .MatchSoundsLike = False            'True, если требуется найти слова похожие по звучанию на заданный текст.
        .MatchWildcards = False             'True, если в процессе поиска используются регулярные выражения.
 
        'MatchByte                          'True, если в процессе поиска следует различать символы полной и половинной ширины.
        'ParagraphFormat                    'Возвращает или устанавливает объект ParagraphFormat.
        'Found                              'True, если в результате выполнения поиска было найдено соответствие.
        'Font                               'Возвращает или устанавливает объект Font задающий форматирование шрифта.
        
        '.Execute Replace:=wdReplaceAll
        .Execute
        
        If .Found Then  'проверяем, найдена ли Закладка в документе Word
            ExportWord = True           'закладка найдена
            .Execute Replace:=2         'wdReplaceAll = 2
        Else
            ExportWord = False          'закладка НЕ найдена
        End If
    End With
End Function

Function ExportWord(ByVal iName As String, ByVal iVal As String) As Boolean
    Dim i As Long, iWord
    Dim tmp As String, ss
    ExportWord = False
  
    If Len(iName) > 55 Then
      MsgBox "Что ж такая длинная закладка! Я так не играю...."
      Exit Function
    End If
 
     With iWord.Content.Find
      If Not .Execute(iName, False, False, False, False, False, True, 1, False, , 0) Then Exit Function
      Do While Len(iVal) > 250
       ss = .Execute(iName, False, False, False, False, False, True, 1, False, Left(iVal, 200) & iName, 2)
       iVal = Mid(iVal, 201)
      Loop
      ss = .Execute(iName, False, False, False, False, False, True, 1, False, iVal, 2)
    End With
    ExportWord = True
 
End Function