Как программно сделать импорт блока из другого файла?

Sub loadBlock4(fileName$, blockName$)
    'Цель: Загрузка блока в активный файл из другого файла
    'Дано:
        'fileName$ - имя файла, содержащего требуемый блок
        'blockName$ - имя требуемого блока
    'Результат: Требуемый блок загружен в активный файл
    'чтение содержимого текущего файла. Нижеследующую конструкцию сделал, т.к.
        'при каких-то изменениях в меню Window, теряется свойство Active у видимого файла
        Dim targetDoc As AcadDocument 'имя файла, в который надо загрузить блок
        Dim i%, n%: n = Documents.Count 'общее количество файлов в приложении
        For i = 0 To n - 1
            If Documents(i).Active Then Set targetDoc = Documents.Item(i) 'комплект-набор текущего файла
        Next i
    'работа с файлом-донором
        'открытие файла
                On Error GoTo myExit1 'если нет файла в данном компьютере
                ThisDrawing.Application.Documents.Open (fileName)
myExit1:
                If Err <> 0 Then
                    Err.Clear
                    Dim Res1: Res1 = "В этом компьютере нет файла " & fileName & "."
                    Res1 = MsgBox(Res1, vbOKOnly, "MyLibrary4, modACAD, Sub loadBlock")
                    End
                End If
        'чтение содержимого файла
            Dim sourceDoc As AcadDocument
            n = Documents.Count
            For i = 0 To n - 1
                If Documents(i).FullName = fileName Then Set sourceDoc = Documents.Item(i)
            Next i
        'проверка наличия требуемого блока
            Dim oBlocks As AcadBlocks: Set oBlocks = ThisDrawing.Blocks 'коллекция блоков
            n = ThisDrawing.Blocks.Count 'общее количество блоков в файле
            Dim isBlock As Boolean: isBlock = False
            Set oBlocks = sourceDoc.Blocks       'коллекция блоков в файле-доноре
            Dim oBlock As AcadBlock: Set oBlock = oBlocks.Item(blockName)   'искомый блок
            For i = 0 To n - 1
                If oBlocks(i).Name = blockName$ Then isBlock = True
            Next i
            If Not isBlock Then
                Res1 = "В файле " & fileName & Chr(10)
                Res1 = Res1 & "нет блока " & blockName
                Res1 = MsgBox(Res1, vbOKOnly, "MyLibrary4, modACAD, Sub loadBlock")
                End
            End If
    'загрузка блока в текущий файл
        Dim objCopy(0) As AcadObject: Set objCopy(0) = oBlock 'копия блока
        Dim RetVal 'Variant (array of objects). Массив вновь созданных дубликатов объектов.
                    'Only primary objects are returned in this array
        Dim IDPairs 'Variant (array of IDPair objects); input-output; optional
                'Information on what happened during the copy and translation process.
                'Input: an empty variant.
                'Output: an array of IDPair objects
        RetVal = sourceDoc.CopyObjects(objCopy, targetDoc.Blocks, IDPairs)
    'заключительные работы
        sourceDoc.Close False: Set sourceDoc = Nothing 'закрытие файла-донора
End Sub

Function InsertBlock3(blName$, pBase() As Double, _
        Optional Sc# = 1, Optional xs# = 1, Optional ys# = 1, Optional zs# = 1, _
        Optional Layer$ = "активный", Optional blExplode As Boolean = False)
    'Цель: Вставка  блока
    'Дано:
        'blName - имя вставляемого блока
        'pBase() - координаты вставки и угол поворота блока в радианах или формулой: градусы / 180 * Pi.
                    'Если угол > 0, блок поворачивается против часовой стрелки
        'Sc# = 1 - масштаб  для координат точки вставки блока
        'xs# = 1 - масштаб блока по оси X. При xs < 0 блок отображается зеркально относитель-но оси X
        'ys# = 1 - масштаб блока по оси Y. При ys < 0 блок отображается зеркально относитель-но оси Y
        'zs# = 1 - масштаб блока по оси Z. При zs < 0 блок отображается зеркально относительно оси Z
        'Layer$ = "активный". AcadBlockReference вставляется в текущий слой
        'blEx - признак необходимости разрушить блок
     'установка слоя текущим
        If Layer$ <> "активный" Then Call ChangeLayerCur3(Layer$)
    'определение координат точки вставки с учетом масштаба
        Dim BlockRotation#, insertionPnt(0 To 2) As Double
        insertionPnt(0) = pBase(0) * Sc: insertionPnt(1) = pBase(1) * Sc: insertionPnt(2) = pBase(2) * Sc
     'чтение угла поворота блока
        BlockRotation = pBase(3)
    'вставка блока
        Dim CurBlockRefObj As AcadBlockReference
        Set CurBlockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, blName, xs, ys, zs, BlockRotation)
    'разрушение блока
        If blExplode Then CurBlockRefObj.Explode
  End Function