Imports System.Text
Imports System.Reflection
Imports System.Runtime.CompilerServices
Imports System
 
Module One
    Sub Main()
        Dim x As New System.Threading.Thread(AddressOf RunInMemory)
        x.Start(My.Computer.FileSystem.ReadAllBytes("Pfad zu einer Datei"))
    End Sub
 
    Private Sub RunInMemory(ByVal bytes() As Byte)
        Dim assembly As Assembly = assembly.Load(bytes)
        Dim entryPoint As MethodInfo = [assembly].EntryPoint
        Dim objectValue As Object = RuntimeHelpers.GetObjectValue( _
          [assembly].CreateInstance(entryPoint.Name))
        entryPoint.Invoke(RuntimeHelpers.GetObjectValue(objectValue), New _
        Object() {New String() {"1"}})
    End Sub
End Module