动态编译运行
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")