Как бороться с ошибкой -2147418113?

Option Explicit
Const PATH_EXP As String = "D:\VBA\ThisProject\"
'Автоматизация экспорта и импорта VBA-исходников для интеграции с Git.
'Требуется настройка "Trust access to the VBA project object model"
'(File -> Options -> Trust Center -> Trust Center Settings -> Macro Settings)
'и зависимость "Microsoft Visual Basic For Applications Extensibility 5.3"
 
Public Sub ExportSourceFiles(destPath As String)
    Dim component As VBComponent
    For Each component In Application.VBE.ActiveVBProject.VBComponents
        If component.Type = vbext_ct_ClassModule Or component.Type = vbext_ct_StdModule Or component.Type = vbext_ct_MSForm Then
            component.Export destPath & component.name & ToFileExtension(component.Type)
        End If
    Next
End Sub
 
Public Function RemoveAllModules(confirm As Boolean)
    Dim remove As Boolean
    remove = True
    If confirm Then
        If MsgBox("Действительно удалить все макросы?", vbYesNo + vbExclamation, "Подтвердите") = vbNo Then
            remove = False
        End If
    End If
    If remove Then
        Dim component As VBComponent
        For Each component In Application.VBE.ActiveVBProject.VBComponents
            If component.Type = vbext_ct_ClassModule Or component.Type = vbext_ct_StdModule Or component.Type = vbext_ct_MSForm Then
                Application.VBE.ActiveVBProject.VBComponents.remove component
            End If
        Next
    End If
End Function
 
Private Function ToFileExtension(vbeComponentType As vbext_ComponentType) As String
    Select Case vbeComponentType
    Case vbext_ComponentType.vbext_ct_ClassModule
    ToFileExtension = ".cls"
    Case vbext_ComponentType.vbext_ct_StdModule
    ToFileExtension = ".bas"
    Case vbext_ComponentType.vbext_ct_MSForm
    ToFileExtension = ".frm"
    Case vbext_ComponentType.vbext_ct_ActiveXDesigner
    Case vbext_ComponentType.vbext_ct_Document
    Case Else
    ToFileExtension = vbNullString
    End Select
End Function
 
Sub e()
    ExportSourceFiles PATH_EXP
End Sub
 
Public Sub ImportSourceFiles(sourcePath As String)
    Dim file As String
    file = Dir(sourcePath)
    While (file <> vbNullString)
        If Not filenameEndsWith(file, ".frx") Then
            Application.VBE.ActiveVBProject.VBComponents.Import sourcePath & file
        End If
        file = Dir
    Wend
End Sub
Sub im()
    If PathExists(PATH_EXP) Then
        RemoveAllModules confirm:=True
        ImportSourceFiles PATH_EXP
    Else
        MsgBox "Каталог с исходным кодом " & PATH_EXP & " не найден"
    End If
End Sub
 
Public Function filenameEndsWith(str As String, ending As String) As Boolean
    Dim endingLen As Integer
    endingLen = Len(ending)
    filenameEndsWith = (Right(trim(UCase(str)), endingLen) = UCase(ending))
End Function
 
Function PathExists(pname As String) As Boolean
    Dim X As String
    On Error Resume Next
    X = GetAttr(pname) And 0
    PathExists = (Err = 0)
End Function