void Test()
		{
			StringBuilder FunctionCode = new StringBuilder();
			FunctionCode.Append( "Function TestFunction(Param1)\n" );
			FunctionCode.Append( "  Dim Res\n" );
			FunctionCode.Append( "  Res = Param1 * 2 \n");
			FunctionCode.Append( "  TestFunction = Res\n" );
			FunctionCode.Append( "End Function\n" );

			ScriptControl ExecScript = new ScriptControl();
			ExecScript.Language =  "VBScript" ;
			object[] param = new object[ 1 ];
			decimal d =  12 ;
			param[ 0 ] = d;
			Console.WriteLine(FunctionCode.ToString());
			ExecScript.AddCode(FunctionCode.ToString());
			object res = ExecScript.Run( "TestFunction" , ref param);
			Console.WriteLine(res);
			
		}