Public Wert(19, 29) as double
Public Min(19, 29) as double
Public Max(19, 29) as double

Dim Ergebnis as Double
 
Ergebnis = Wert(1, 10) + Wert(1, 10)
 
if Ergebnis >= Min(0, 0) and Ergebnis <= Max(0, 0) then
	return true
else
	return false
end if

    Public Function Berechnen(ByVal Formel As String) As Boolean
 
        Dim ASM As [Assembly] = CreateAssemblyFromCode(Formel)
        'Ausführen der Assembly.
        Dim O As Object = ASM.CreateInstance("n.t")
        Dim T As Type = O.GetType()
 
        Dim MI As MethodInfo = T.GetMethod("Berechnen")
        Return MI.Invoke(O, Nothing)
 
    End Function
 
    Private 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