呃,人家只是把代码贴出来。不是运行。
运行字符串的代码,参考
Functions.remove("函数")Dim Code As StringCode = "msgbox(123)" & vbcrlfFunctions.Add("函数",Code)Functions.Complie()Functions.Execute("函数")