Выполнить операции по формуле, которая хранится в базе данных

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dbt.Open()
        Dim commmand As New OleDbCommand("SELECT * FROM Tabl;", dbt)
        Dim reader As OleDbDataReader = commmand.ExecuteReader()
        Dim Counter As Integer = 0
        For Each recotd As DbDataRecord In reader
                    Dim l As New TextBox With {.name = recotd("FldName"), .tag = recotd("FldFormula"), .Width = 100, .Height = 22, .Left = 100, .Top = Counter * 25}
                    Me.Panel1.Controls.Add(l)
                    AddHandler l.LostFocus, AddressOf txt_LostFocus
        Next
    End Sub
    Private Sub txt_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs)
        Asumm.text = A1+A2-A3 'здесь надо выполнить формулу из Asumm.tag
    End Sub

Imports System.Linq.Expressions
...
Dim textBoxes() As TextBox = Controls.OfType(Of TextBox)().Where(Function(tb) tb.Name.StartsWith("A")).ToArray()
Dim lambdaParameters() As ParameterExpression = textBoxes.Select(Function(tb) ParameterExpression.Variable(GetType(Integer), tb.Name)).ToArray()
' Приходится использовать тип Object т.к. DynamicInvoke принимает массив Object
Dim values() As Object = textBoxes.Select(Function(tb) CType(Convert.ToInt32(tb.Text), Object)).ToArray()
 
Dim formula As String = "A0 + A1"
Dim result As Integer = Convert.ToInt32(System.Linq.Dynamic.DynamicExpression.ParseLambda( _
    lambdaParameters, _
    GetType(Integer), _
    formula _
).Compile().DynamicInvoke(values))

Imports Tech.DynamicCoding
Imports Tech.DynamicCoding.Compilers
Public Class Form3
    'добавлен компонент AxMSScriptControl
    Private Sub Script_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim action As String = CType(Asumm.Tag, String)
        Asumm.Text = action
        action = action.Replace("A1", A1.Text)
        action = action.Replace("A2", A2.Text)
        action = action.Replace("A3", A3.Text)
        AxScriptControl1.Reset()
        TextBoxOut.Text = AxScriptControl1.Eval(action)
    End Sub
    'с генерацией кода Net, источник: [url]https://habrahabr.ru/post/199266/[/url]
    Private Sub DyCoding_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Dim action As String = CType(Asumm2.Tag, String)
        Asumm2.Text = action
        action = action.Replace("B1", B1.Text)
        action = action.Replace("B2", B2.Text)
        action = action.Replace("B3", B3.Text)
        TextBoxOut2.Text = CodeGenerator.ExecuteCode(Of Integer)("return " & action & ";").ToString
    End Sub
    Private Sub DyCoding2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        'то же самое, но с параметрами
        Dim action As String = CType(Asumm2.Tag, String)
        Asumm2.Text = action
        Dim rz As Integer = CodeGenerator.ExecuteCode(Of Integer)("return " & action & ";", _
                            CodeParameter.Create(B1.Name, CInt(B1.Text)), _
                            CodeParameter.Create(B2.Name, CInt(B2.Text)), _
                            CodeParameter.Create(B3.Name, CInt(B3.Text)))
        TextBoxOut2.Text = rz
    End Sub
End Class

Dim objScript As Object = CreateObject("MSScriptControl.ScriptControl")
objScript.Language = "VBScript"
sFormula = "5*2-4" ' так возвращает ответ 6
sFormula = "If (5>2) then (5-2) else (5-4)"  ' так возвращает ошибку "Синтаксическая ошибка"
tmpF = objScript.Eval(sFormula)

objScript.AddCode("Function IIF(Expression,TruePart,FalsePart)
                If Expression Then
                    IIF=TruePart
                Else
                    IIF=FalsePart
                End IF
            End Function")
sFormula = "IIf(5>2, 5-2, 5-4)"
tmpF = objScript.Eval(sFormula) ' 3