Public Function CreateAssemblyFromCode(ByVal Code As String) As [Assembly]
        ' Assembly aus VB.NET-Sourcecode in einem String erzeugen:
        ' CodeDomProvider für VB.NET erzeugen
        Dim CDP As CodeDomProvider = New Microsoft.VisualBasic.VBCodeProvider() _
                             ' Compiler erzeugen
        Dim Compiler As ICodeCompiler = CDP.CreateCompiler()                    _
             ' Compiler-Parameter erzeugen
        Dim CP As New CompilerParameters()
        CP.GenerateInMemory = True
        ' Compilieren und Compiler-Ergebnis ermitteln
        Dim CR As CompilerResults = Compiler.CompileAssemblyFromSource(CP, Code)
        ' Im Fehlerfall Nothing zurückgeben
        If CR.Errors.Count <> 0 Then
            Return Nothing
        Else
            Return CR.CompiledAssembly
        End If
    End Function
 
    ' Das testende Hauptprogramm
    Sub Test()
        ' Auszuführender Beispielcode in einem String
        Dim Code As String = _
            "Namespace aixsoft" & vbNewLine & _
              "Public Class Math" & vbNewLine & _
                "Public Function Add(ByVal x as Integer, " & _
                "ByVal y as Integer)" & vbNewLine & _
                  "Return x+y" & vbNewLine & _
                "End Function" & vbNewLine & _
              "End Class" & vbNewLine & _
            "End Namespace"
 
        ' Assembly aus dem Code erzeugen
        Dim ASM As [Assembly] = CreateAssemblyFromCode(Code)
        ' ... und ein Test der Assembly:
        Dim O As Object = ASM.CreateInstance("aixsoft.Math")
        Dim T As Type = O.GetType()
        Dim MI As MethodInfo = T.GetMethod("Add")
        ' Parameterwerte festlegen
        Dim Param(1) As Object
        Param(0) = 17
        Param(1) = 25
        ' Add-Funktion aufrufen
        Dim Result As Object = MI.Invoke(O, Param)
        ' Ausgabe des Ergebnisses
        Debug.WriteLine("17 + 25 = " & Result.ToString())
    End Sub