Public Function Ausgeben(ByVal Formel As String) As String
	       Dim ASM As [Assembly] = CreateAssemblyFromCode(Formel)
	       Dim O As Object = ASM.CreateInstance("MyNameSpace.MyType")
	       Dim T As Type = O.GetType()
	       Dim MI As MethodInfo = T.GetMethod("Test")
	       Dim MyVals() As Integer = {1,2,3,4,5,6,7,9,11,12}
	       Return MI.Invoke(O, New Object() {MyVals})
    	End Function
	    Private Function CreateAssemblyFromCode(ByVal Code As String) As [Assembly]
	        Dim CDP As CodeDomProvider = New Microsoft.VisualBasic.VBCodeProvider  _
                      ' Compiler erzeugen
	        Dim Compiler As ICodeCompiler = CDP.CreateCompiler()
	        Dim CP As New CompilerParameters
	        CP.GenerateInMemory = True
	        Dim CR As CompilerResults = Compiler.CompileAssemblyFromSource(CP, _
  Code)
	        If CR.Errors.Count <> 0 Then
	            For A As Integer = 0 To cr.Errors.Count 
	            	me.textBox1.AppendText(cr.Errors(A).ToString() + _
  System.Environment.NewLine )
	            Next
	            Return Nothing
	        Else
	            Return CR.CompiledAssembly
	        End If
	    End Function
    	    Private Sub Button1Click(sender As System.Object, e As _
      System.EventArgs)
			Dim s As New System.Text.Stringbuilder
			s.Append ("Namespace MyNameSpace" + System.Environment.NewLine)
			s.Append ("  Public Class MyType" + System.Environment.NewLine)
			s.Append ("    Public Function Test (Arr() As Integer) As String" + _
  System.Environment.NewLine)
			s.Append ("	 Dim s As String" + System.Environment.NewLine)
			s.Append ("      For Each l As Integer In Arr" + System.Environment.NewLine)
			s.Append ("       s += l.ToString()  " + System.Environment.NewLine)
			s.Append ("      Next" + System.Environment.NewLine)
			s.Append ("      Return s" + System.Environment.NewLine)
			s.Append ("    End Function" + System.Environment.NewLine)
			s.Append ("  End Class" + System.Environment.NewLine)
			s.Append ("End Namespace" + System.Environment.NewLine)
			Me.textBox1.Text = Me.Ausgeben(s.ToString())
		End Sub