' Функция выполнения JScript кода в VBA (на примере функции наибольшего общего делителя)
Public Function JScriptExec(FNum As Integer, SNum As Integer) As Long
  With CreateObject("ScriptControl")
    .Language = "JScript"
    .AllowUI = False
    .SitehWnd = Application.Hwnd
    .AddCode "function gcd (a, b) {var c;a = +a;b = +b; " & _
        "if (a !== a || b !== b) { return NaN; } " & _
        "if (a === Infinity || a === -Infinity || b === Infinity || b === -Infinity) { return Infinity; } " & _
        "if ((a % 1 !== 0) || (b % 1 !== 0)) { throw new Error(""Can only operate on integers""); } " & _
        "while (b) {c = a % b;a = b;b = c;} " & _
           "return (0 < a) ? a : -a;};"
    JScriptExec = .Run("gcd", FNum, SNum)
  End With
End Function