Imports System.Reflection
Imports System.CodeDom.Compiler

Public Class Form1

  Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim myCode As CodeDomProvider = CodeDomProvider.CreateProvider("VB")
    Dim myPar As New CompilerParameters()
    'формируем виртуальный класс, в котором будет производиться расчет
    Dim myCodeBody As New System.Text.StringBuilder()
    myCodeBody.AppendLine("Public Class MyCalculator")
    myCodeBody.AppendLine("Public Function Calc() As Double")
    'TextBox1.Text.ToLower().Replace("x", TextBox2.Text) - меняем икс в формуле (TextBox1) на число указанное в TextBox2
    '.Replace(",", ".") - меняем запятые на точки, т.к. в VB в качестве десятичного разделителя используются точки
    myCodeBody.AppendLine(String.Format("Return {0}", TextBox1.Text.ToLower().Replace("x", TextBox2.Text).Replace(",", ".")))
    myCodeBody.AppendLine("End Function")
    myCodeBody.AppendLine("End Class")
    'компилируем
    Dim myResult As CompilerResults = myCode.CompileAssemblyFromSource(myPar, myCodeBody.ToString())
    If myResult.Errors.HasErrors Then
      'какие-то ошибки
      For i As Integer = 0 To myResult.Errors.Count - 1
        ListBox1.Items.Insert(0, myResult.Errors(i).ErrorText)
      Next
      Return
    End If
    'ошибок нет, выдергиваем наш класс
    Dim myAsm As Assembly = myResult.CompiledAssembly()
    Dim myCls As Object = myAsm.CreateInstance("MyCalculator", True)
    'выводим результат
    ListBox1.Items.Insert(0, TextBox1.Text.ToLower().Replace("x", TextBox2.Text) & " = " & myCls.Calc())
  End Sub

End Class