无法打开命令窗口。你可以自己做一个窗口。
红色代码替换成你textbox控件。
Functions.remove("函数")Dim Code As StringCode = "msgbox(123)" & vbcrlfFunctions.Add("函数",Code)Functions.Complie()Functions.Execute("函数")