Private Function runScript(ByVal fullPath As String)
Dim js As MSScriptControl.ScriptControl = New MSScriptControl.ScriptControl
js.AllowUI = 0
js.Language = "JSCript"
js.Reset()
js.AddCode("function returnDouble(str)" & _
"{return str + str;}")
Dim parms() As Object = {"test"}
Dim ans As String = js.Run(fullPath, parms)
Return ans
End Function
'returns testtest