...
      StartTime As Double, _
      CurrentTime As Double
'      WITHOUT_OLE As String, _

' >> Начало добавления
  Dim searchRan As Range
  Dim firstAddress As String
' << Конец добавления

  StartTime = Time * 100000
  CurrentTime = StartTime * 100000
...

...
Else
        If Ar(3) = "S" Then 'or InStr(1, Ar(5), Chr(9)) = 0 Then
          Ln = Ar(5)

          ' >> Начало добавления
          If Len(Ln) > 255 Then
            Set searchRan = r.Find(What:=Ar(2), LookAt:=xlPart)
           
            If Not searchRan Is Nothing Then
                firstAddress = searchRan.Address
                Do
                    searchRan.Value = Ln
                    Set searchRan = r.FindNext(searchRan)
                Loop While Not searchRan Is Nothing And searchRan.Address <> firstAddress
            End If
          Else
            r.Replace Ar(2), Ln, xlPart, xlByRows, False
          End If
          'r.Replace Ar(2), Ln, xlPart, xlByRows, False
          ' << Конец добавления

        ElseIf Ar(1) <> "*" And Ar(3) = "T" Then
          Set Ofs = r.Find(Ar(2))
          Set QTable = r.Worksheet.QueryTables.Add("TEXT;" + Application.ActiveWorkbook.Path + Application.PathSeparator + Ar(5), Ofs)
          QTable.AdjustColumnWidth = False
...