Dim asm = Reflection.Assembly.LoadFrom(sFilePath)
asm = Nothing

Dim b() As Byte = My.Computer.FileSystem.ReadAllBytes(sFiles(0))
asm = Reflection.Assembly.Load(b)

Журнал: Appbase = file:///D:/ProgramFiles/VS2015/Common7/IDE/

            sPath = Reflection.Assembly.GetExecutingAssembly.Location
            sPath = Mid(sPath, 1, InStrRev(sPath, "\"))
            Dim d = AppDomain.CreateDomain("Analyser", Nothing, New AppDomainSetup With {.ApplicationBase = sPath})
            Try
                Dim aa = d.CreateInstanceAndUnwrap("AssemblyLoader, Version=1.0.0.0, Culture=neutral, PublicKeyToken=0daea82d6110b4cf", "AssemblyLoader.AssemblyAnalyser")

<Serializable>
Public Class AssemblyAnalyser
    Public Function GetAssembly(sPath As String) As Reflection.Assembly
        Return Reflection.Assembly.LoadFrom(sPath)
    End Function
End Class

Public Class AssemblyAnalyser
    Inherits MarshalByRefObject

<ClassInterface(ClassInterfaceType.AutoDual)>
Public Class AAFactory
    Inherits MarshalByRefObject

    Dim LocalAppDomain As AppDomain = Nothing
    Dim ResolvePath As String
    Dim WithEvents rslv As AppDomain

    Public Sub New(sResolvePath As String)
        ResolvePath = sResolvePath
    End Sub

    Public Function CreateAssemblyAnalyser() As AssemblyAnalyser
        Me.CreateAppDomain(Nothing)
        Dim AssemblyPath As String = Assembly.GetExecutingAssembly().Location
        Return DirectCast(Me.LocalAppDomain.CreateInstanceFrom(AssemblyPath, GetType(AssemblyAnalyser).FullName).Unwrap(), AssemblyAnalyser)
    End Function

    Private Function CreateAppDomain(appDomain__1 As String) As Boolean
        If String.IsNullOrEmpty(appDomain__1) Then appDomain__1 = "wsdlparser" + Guid.NewGuid().ToString().GetHashCode().ToString("x")
        Me.LocalAppDomain = AppDomain.CreateDomain(appDomain__1, Nothing, New AppDomainSetup With {.ApplicationBase = Environment.CurrentDirectory})
        rslv = AppDomain.CurrentDomain
        Return True
    End Function

    Private Function rslv_AssemblyResolve(sender As Object, args As ResolveEventArgs) As Assembly Handles rslv.AssemblyResolve
        If args.Name = Assembly.GetExecutingAssembly.FullName Then
            Return Assembly.Load(args.Name)
        Else
            Return Assembly.LoadFrom(Regex.Replace(args.Name, "^([^,]+),.*", ResolvePath + "\$1.dll"))
        End If
    End Function

    Public Sub Unload()
        rslv = Nothing
        If Me.LocalAppDomain IsNot Nothing Then
            AppDomain.Unload(Me.LocalAppDomain)
            Me.LocalAppDomain = Nothing
        End If
    End Sub
End Class

            Dim aaf As New AssemblyLoader.AAFactory(sPath) 'папка, где лежит сборка
            Try
                Dim aa As AssemblyLoader.AssemblyAnalyser = aaf.CreateAssemblyAnalyser
                Dim asm As Reflection.Assembly = aa.GetAssembly(sFiles(0))
                'мучаем сборку
            Catch ex As Exception
                
            Finally
                aaf.Unload()
            End Try
            aaf = Nothing
            'сборка свободна