从工程中引用 Microsoft Script Control 然后:Dim ScriptControl1 As MSScriptControlstr = Text1.TextCall ScriptControl1.Eval(str)