gistfile1.txt

Sub RunJavaScript()
    ' Declare the ScriptControl object
    Dim sc As Object
    Set sc = CreateObject("MSScriptControl.ScriptControl")
    
    ' Set the language to JavaScript
    sc.Language = "JScript"
    
    ' Write the JavaScript code you want to execute
    Dim jsCode As String
    jsCode = "function add(a, b) { return a + b; }"
    
    ' Add the code to the ScriptControl
    sc.AddCode jsCode
    
    ' Run the JavaScript function and get the result
    Dim result As Variant
    result = sc.Run("add", 5, 3)
    
    ' Display the result
    MsgBox "The result of adding 5 and 3 is: " & result
End Sub