Public Function CompileCode(InputCode As String) As System.Reflection.Assembly
        Dim CodeDomProvider As System.CodeDom.Compiler.CodeDomProvider = _
          System.CodeDom.Compiler.CodeDomProvider.CreateProvider("vb")
        'Parameter für die Compilierung, wie die einzubindenen Bibliotheken usw.
        Dim CompilerParameters As New _
          System.CodeDom.Compiler.CompilerParameters()
 
 
        Dim ASM As System.Reflection.Assembly
        For Each ASM In AppDomain.CurrentDomain.GetAssemblies()
            If ASM.Location <> "" Then
                CompilerParameters.ReferencedAssemblies.Add(ASM.Location)
            End If
        Next
 
        CompilerParameters.GenerateInMemory = True
 
        'Über den StringBuilder wird der Code zusammengesetzt
 
        Dim Temp As New StringBuilder()
        Temp.AppendLine("Imports System")
        Temp.AppendLine("Imports Microsoft.VisualBasic.Interaction")
        Temp.AppendLine("Imports System.Windows.Forms")
        Temp.AppendLine("Imports MB_One_v3")
 
        Temp.AppendLine("Namespace Methods")
        Temp.AppendLine("Public Class Methoden")
        Temp.AppendLine("Public Sub Main(ByVal parAktuelleCla as object, ByVal" & _
          "parForms as object)")
 
        Temp.AppendLine(InputCode)
 
        Temp.AppendLine("End Sub")
        Temp.AppendLine("End Class")
        Temp.AppendLine("End Namespace")
 
        'Compilieren
        Dim CompilerResults As System.CodeDom.Compiler.CompilerResults = _
          CodeDomProvider.CompileAssemblyFromSource(CompilerParameters, _
          Temp.ToString)
        'Auf CompilerFehler prüfen
        If CompilerResults.Errors.Count > 0 Then
            MessageBox.Show(CompilerResults.Errors(0).ErrorText, "Fehler bei" & _
              "Laufzeitkompilierung", MessageBoxButtons.OK, _
              MessageBoxIcon.[Error])
            Return Nothing
        End If
        'Rückgabe der compilierten Assembly
        Return CompilerResults.CompiledAssembly
    End Function