Dim c As Object
Set c = CreateObject("MSScriptControl.ScriptControl")
c.Language = "vbscript"
MsgBox c.Eval("2+4*((5+6)*sin(90))")