Dim sc As New MSScriptControl.ScriptControl
 
        Dim x1, x2, x3 As Double
        x1 = 100 : x2 = 200 : x3 = 5.7
        With sc            
            .Language = "VBScript"
 
            .AddCode("x1=" + Replace(CStr(x1), ",", "."))
            .AddCode("x2=" + Replace(CStr(x2), ",", "."))
            .AddCode("x3=" + Replace(CStr(x3), ",", "."))
 
            Dim result As String = sc.Eval("(x1 + x2) / x3")
        End With