Option Explicit
'Verweis auf Microsoft Scripting Runtime
'Form mit:
'Text1
'Text2
'Command1
Private Sub Command1_Click()
   ' In Text1 steht der zu berechnender Ausdruck
    Dim scrObj As Object
    Dim xErgebnis$
    Dim xText$
    
    'Beispiel Text1:
    '14123/7 +9
    
    xText = Text1.Text
    ' erst mal das ScriptControl hinzufügen
    Set scrObj = CreateObject("ScriptControl")
    ' Scriptsprache festlegen
    scrObj.Language = "VBScript"
    ' Ausführen der Anweisung.
    scrObj.ExecuteStatement ("xErgebnis = " & xText)
   
    xErgebnis = scrObj.Eval("xErgebnis")
    ' und das Ergebnis anzeigen
    Text2.Text = "Das Ergebnis von " & xText & " ist " & xErgebnis
 
End Sub