Private Sub ButtonOK_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnOK.Click
        Dim ScriptControl As New MSScriptControl.ScriptControl
        ScriptControl.Language = "VBSCRIPT"
        Dim Formel As String = txtFormel.Text
        Try
            Dim Result As Double = Convert.ToDouble(ScriptControl.Eval(Formel))
            MessageBox.Show("Ergebnis: " & Formel & "=" & Result.ToString)
        Catch ex As Exception
            MessageBox.Show("Ungültige Eingabe!")
        End Try
    End Sub

EALA FREYA FRESENA