有个计算的有关问题，请高手来解答一下~

有个计算的问题，请高手来解答一下~！！
用VB想实现一下这样一个问题：
          在一个文本框里输入一个复合运算的式子，如：((0.08+0.27+0.03)+0.1+(0.9+0.5))*(18.8-2.8)*8；在别一个文本框里即时得出结果，请问应怎么写程序，
想了好久，没有好的办法，请高手指点~！！！！

[解决办法]
参考这个帖子里面我的回答：

http://community.csdn.net/Expert/TopicView3.asp?id=5540075
[解决办法]
Option Explicit

Private Sub Command1_Click()
Dim test As String
Dim SCR As Object
test = "((0.08+0.27+0.03)+0.1+(0.9+0.5))*(18.8-2.8)*8 "
Set SCR = CreateObject( "MSScriptControl.ScriptControl ")
SCR.Language = "vbscript "
MsgBox test & "= " & SCR.Eval(test)
End Sub

[解决办法]
引用microsoft script control 1.0
Dim Ax As New MSScriptControl.ScriptControl
Ax.Language = "VbScript "
Debug.Print Ax.Eval(Text1.Text)

找了一个小时，2000年时写了，一点也不记得了，哎！这脑袋真的是很不好用了。