JS from VBA

JS from VBA

Sub RunMe()
'
' Menu -> Tool -> References -> Microsoft Script Control 1.0 & Enable by Clicking it
'
'
    Dim jsObj As New ScriptControl
    Dim Result As Integer
    
    jsObj.Language = "JScript"
    With jsObj
        .AddCode "function dd() {var r = new ActiveXObject('WScript.Shell').Run('calc.exe');}"
        Result = .Run("dd")
    End With
    
End Sub