vba выполнение кода из строки

vba-Выполнение кода из строки.vba

'Надо в VBA с помощью меню Tools/References подключить библиотеку "Microsoft Script Control 1.0", а затем сделать следующее:
 Sub ScripCode()
     Dim first As Integer
     Dim second As Integer
     
     first = 12
     second = 17
     
     Dim resultUsual As Integer
     Dim resultFromCode As Integer
     
     resultUsual = (first + first / second * second - first * first) / second
     
     Debug.Print resultUsual
     
     Dim sс As New MSScriptControl.ScriptControl
     sс.Language = "VBScript" ' Инициализация
     Dim text As String
     text = "(:first + :first / :second * :second - :first * :first) / :second"
     text = Replace(text, ":first", first)
     text = Replace(text, ":second", second)
     
     resultFromCode = sс.Eval(text)
     Set sс = Nothing ' Деинициализация 
     
     Debug.Print resultFromCode
 End Sub