在VB里,用什么函数可以得出一个文本框里的计算式的值?

楼上的调用API函数好麻烦!
(我的可以计算小数.)
试试我的代码：
Option Explicit
Private Sub Form_Load()
Text1.Text = "1 + 2 * 3"
End Sub
Private Sub Command1_Click()
Dim s As Object
Dim Result As Variant
Set s = CreateObject("MSScriptControl.ScriptControl")
s.Language = "VBScript"
Result = s.Eval(Text1.Text)
'Result就是结果.
MsgBox Result
End Su