动态执行代码参考
Functions.remove("打印")Dim Code As StringCode = "msgbox(123)" & vbcrlfFunctions.Add("打印",Code)Functions.Complie()Functions.Execute("打印")