'Projekt/Verweis hinzufügen/COM/Microsoft Script Control 1.0
 
Imports MSScriptControl
 
Public Class Form1
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        TextBox1.Text = Rechne("1 + 7 ^ 2")
    End Sub
 
    Private Function Rechne(s As String) As Double
        Dim sc As New MSScriptControl.ScriptControl()
        sc.Language = "VBScript"
        Dim expression As String = s
        Return sc.Eval(expression)
    End Function
 
End Class