Private Sub Command1_Click()Dim code As ObjectSet code = CreateObject("ScriptControl")code.Language = "JavaScript"code.AddCode ("function test(n){ return n*n}")MsgBox code.Eval("test(123)")End Sub