参考
Dim code = "msgbox(1)"Functions.remove("test")Functions.complie()Functions.Add("test" ,code)Functions.Complie()
Functions.Execute("test")