Упаковать архивированную DLL в ресурсы

Private Function LoadDll_ZIP(ByVal sender As Object, ByVal arg As System.ResolveEventArgs) As Reflection.Assembly
            'Dll_Reference_Name - точно такое же название, которое используете в Import.
            'ZIPDLL - это название нашего архива с DLL-кой в ресурсах
            If arg.Name.Contains("Dll_Reference_Name") Then
                Dim file_ As New IO.Compression.ZipArchive(New IO.MemoryStream(My.Resources.ZIPDLL))
                Return Reflection.Assembly.Load(New IO.BinaryReader(file_.Entries(0).Open).ReadBytes(CInt(file_.Entries(0).Length)))
            End If
            Return Nothing
        End Function

 '(Для упакованной в ZIP (.NET Framework 4.5+))
 'ссылку на IO.Compression нужно добавлять вручную в проект из GAC
 '------------------------------------------------------------------------------------------------
 Private Function LoadDll_ZIP(ByVal sender As Object, ByVal arg As System.ResolveEventArgs) As Reflection.Assembly
     'Dll_Reference_Name - точно такое же название, которое используете в Import.
     'ZIPDLL - это название нашего архива с DLL-ками в ресурсах
 
     Dim file_ As IO.Compression.ZipArchive
 
     'Здесь, если вы в один архив поместили несколько DLL
     'то код найдет нужную внутри архива и загрузит
     'Dll_Reference_Name1 и Dll_Reference_Name2 - это разные файлы DLL внутри архива
     Select Case True
         Case arg.Name.Contains("Dll_Reference_Name1")
             file_ = New IO.Compression.ZipArchive(New IO.MemoryStream(My.Resources.ZIPDLL))
             For Each entry In file_.Entries
                 If entry.Name.StartsWith("Dll_Reference_Name1") Then
                     Return Reflection.Assembly.Load(New IO.BinaryReader(entry.Open).ReadBytes(CInt(entry.Length)))
                 End If
             Next
 
         Case arg.Name.Contains("Dll_Reference_Name2")
             file_ = New IO.Compression.ZipArchive(New IO.MemoryStream(My.Resources.ZIPDLL))
             For Each entry In file_.Entries
                 If entry.Name.StartsWith("Dll_Reference_Name2") Then
                     Return Reflection.Assembly.Load(New IO.BinaryReader(entry.Open).ReadBytes(CInt(entry.Length)))
                 End If
             Next
     End Select
 
     Return Nothing
 End Function

Imports System.IO
Imports System.IO.Compression
Imports System.Refelection
 
Private Function LoadDll_ZIP(ByVal sender As Object, ByVal arg As ResolveEventArgs) As Assembly
 
    Dim asmName As New AssemblyName(arg.Name)
 
    Select Case asmName.Name
        Case "Dll_Reference_Name1"
            Return ExtractAssembly("Dll_Reference_Name1")
        Case "Dll_Reference_Name2"
            Return ExtractAssembly("Dll_Reference_Name2")
    End Select
 
    Return Nothing
 
End Function
 
Private Function ExtractAssembly(assemblyName As String) As Assembly
 
    Dim zipArc As New ZipArchive(New MemoryStream(My.Resources.ZIPDLL))
    Dim zipEntry As ZipArchiveEntry = zipArc.GetEntry(assemblyName & ".dll")
    
    If zipEntry Is Nothing Then Return Nothing
    Return Assembly.Load(New BinaryReader(zipEntry.Open).ReadBytes(CInt(zipEntry.Length)))
 
End Function

#Region "Загрузим DLL из ресурсов"
        Private Function LoadDll(ByVal sender As Object, ByVal arg As System.ResolveEventArgs) As Reflection.Assembly
            Dim asmName As New AssemblyName(arg.Name)
 
            Select Case asmName.Name
                Case "Dll_Reference_Name1", "Dll_Reference_Name2"
                    Return GetAssembly_FromResources(asmName.Name, True, My.Resources.DLL_ZIPPED)
            End Select
 
            Return Nothing
 
        End Function
 
        Private Function GetAssembly_FromResources(assemblyName As String, isZIP As Boolean, fileInResources As Byte()) As Assembly
            If isZIP Then
                '(Для упакованной в ZIP (.NET Framework 4.5+))
                'ссылку на IO.Compression нужно добавлять вручную в пароект из GAC
                Dim zipArc As New ZipArchive(New MemoryStream(fileInResources))
                Dim zipEntry As ZipArchiveEntry = zipArc.GetEntry(assemblyName & ".dll")
                If zipEntry Is Nothing Then Return Nothing
                Return Assembly.Load(New BinaryReader(zipEntry.Open).ReadBytes(CInt(zipEntry.Length)))
            Else
                'Не упакованной в ZIP
                Try
                    Dim AssemblyFile As New MemoryStream(fileInResources)
                    Return Assembly.Load(New BinaryReader(AssemblyFile).ReadBytes(CInt(AssemblyFile.Length)))
                Catch ex As Exception
                    Return Nothing
                End Try
            End If
        End Function
#End Region

Return Assembly.Load(fileInResources)

#Region "Загрузим DLL из ресурсов"
        Private Function LoadDll(ByVal sender As Object, ByVal arg As System.ResolveEventArgs) As Reflection.Assembly
            Dim asmName As New AssemblyName(arg.Name)
 
            Select Case asmName.Name
 
                Case "Dll_Reference_Name1", "Dll_Reference_Name2"
                    Return GetAssembly_FromResources(asmName.Name, True, My.Resources.DLL_ZIPPED)
 
                Case "Dll_Reference_Name3", "Dll_Reference_Name4"
                    Return GetAssembly_FromResources(asmName.Name, False, My.Resources.DLL_NOT_ZIPPED)
 
            End Select
 
            Return Nothing
 
        End Function
 
        Private Function GetAssembly_FromResources(assemblyName As String, isZIP As Boolean, fileInResources As Byte()) As Assembly
            If isZIP Then
                'Для упакованной в ZIP (.NET Framework 4.5+), 
                'ссылку на System.IO.Compression добавлять вручную в проект из GAC
                Dim zipArc As New ZipArchive(New MemoryStream(fileInResources))
                Dim zipEntry As ZipArchiveEntry = zipArc.GetEntry(assemblyName & ".dll")
                If zipEntry Is Nothing Then Return Nothing
                Return Assembly.Load(New BinaryReader(zipEntry.Open).ReadBytes(CInt(zipEntry.Length)))
            Else
                'Не упакованной в ZIP
                    Return Assembly.Load(fileInResources)
            End If
        End Function
#End Region

#Region "Загрузим DLL из ресурсов"
        Private Function LoadDll(ByVal sender As Object, ByVal arg As ResolveEventArgs) As Assembly
            Dim asmName As New AssemblyName(arg.Name)
 
            Select Case asmName.Name
 
                Case "Dll_Reference_Name1", "Dll_Reference_Name2"
                    Return GetAssembly_FromResources(asmName.Name, True, My.Resources.DLL_ZIPPED)
 
                Case "Dll_Reference_Name3"
                    Return Assembly.Load(My.Resources.DLL3_NOT_ZIPPED)
 
                Case "Dll_Reference_Name4"
                    Return Assembly.Load(My.Resources.DLL4_NOT_ZIPPED)
 
            End Select
 
            Return Nothing
 
        End Function
 
        Private Function GetAssembly_FromResources(assemblyName As String, fileInResources As Byte()) As Assembly
            
            'Для упакованной в ZIP (.NET Framework 4.5+),
            'ссылку на System.IO.Compression добавлять вручную в проект из GAC
            Dim zipArc As New ZipArchive(New MemoryStream(fileInResources))
            Dim zipEntry As ZipArchiveEntry = zipArc.GetEntry(assemblyName & ".dll")
            If zipEntry Is Nothing Then Return Nothing
 
            Using reader As New BinaryReader(zipEntry.Open())
                Return Assembly.Load(reader.ReadBytes(CInt(zipEntry.Length)))
            End Using
        
        End Function
#End Region

Case Else
    Return Assembly.LoadFrom($"{ПУТЬ К ПАПКЕ ПО}\DLL\{assemblyName}.dll")