Помогите разобратся

Public Sub LoricImport()  'экспорт изображения из соответствующего файла
Dim LoricFileName As String
Dim LoricDocument As CorelDRAW.Document
Dim CurrDocument As CorelDRAW.Document
Dim LoricLayer As CorelDRAW.Layer
Dim PosY As Double
Dim PosX As Double


LoricFileName = Dir("\\путь до сетевой папки" & ActiveDocument.FileName)
If LoricFileName = "" Then
    MsgBox "Файл с соответствующим номером не найден"
    Exit Sub
End If
LoricFileName = "\\путь до сетевой папки" & ActiveDocument.FileName
Set CurrDocument = ActiveDocument
'удалить все направляющие из CurrDocument
CurrDocument.MasterPage.GuidesLayer.Shapes.All.Delete

PosY = CurrDocument.ActiveLayer.Shapes.All.PositionY - CurrDocument.ActiveLayer.Shapes.All.SizeHeight - 1
PosX = CurrDocument.ActiveLayer.Shapes.All.PositionX

Set LoricDocument = Application.OpenDocument(LoricFileName)
'удалить все направляющие из LoricDocument
LoricDocument.ClearSelection
CurrDocument.ClearSelection
LoricDocument.MasterPage.GuidesLayer.Shapes.All.Delete
Clipboard.Clear
'For Each LoricLayer In LoricDocument.ActivePage.Layers
'    'MsgBox LoricLayer.Name
'    LoricDocument.ActivePage.Shapes.All.AddToSelection
'Next LoricLayer
LoricDocument.ActivePage.Shapes.All.CreateSelection
'LoricDocument.Selection.Copy
ActiveSelection.Copy
CurrDocument.ActiveLayer.Paste
LoricDocument.Save
LoricDocument.Close
CurrDocument.Activate
Application.ActiveSelection.SetPosition PosX, PosY
CurrDocument.Save
On Error GoTo Err_LoricImport
    Kill LoricFileName

   
Exit_LoricImport:
    Exit Sub

Err_LoricImport:
    MsgBox Err.Description
    Resume Exit_LoricImport
   
End Sub