我有个文本框，输入1*2+4*5自动得到结果显示在Label1上结果为22

谢谢回复，完美！

为何封装后提示欠缺VBA6.dll,要怎么引用或注册！！

能否用其他办法解决？


Dim Str As String   '用来存储表达式 　
Dim Rst As String  ’用来存储结果　
Dim SCtl As Object  　
Set SCtl = CreateObject("MSScriptControl.ScriptControl") ’创建并存储ScriptControl对象　
Str = txbExpression  ’将表达式的值传递给Str　
SCtl.Language = "VBScript" '设置脚本语言为　
VBScriptRst = SCtl.Eval(Str)   '计算表达式的值　
txbValue = Rst '输出最终结果


为何还是不行？