动态编译,参考
http://www.foxtable.com/webhelp/scr/1487.htm
测试代码
Dim code = "msgbox(1)"Functions.remove("test")Functions.complie()Functions.Add("test" ,code)Functions.Complie()
Functions.Execute("test")