在Text.1中输入一个合法和算式，怎样输出结果？

Private Sub Form_Click()
Dim vbs As Object
Set vbs = CreateObject("ScriptControl")
vbs.Language = "vbs"
vbs.ExecuteStatement "a1=3:a2=5:d=7:b=6:c=3"
MsgBox vbs.Eval("a1+a2*d-b/c")
Set vbs = Nothing
End Sub

'1F的很实用，不过如果纯粹是求和的话就不用这么高深的东西了吧

Dim a
Dim i As Integer
Dim k As Integer
Dim m As Integer

a = Split(text1.Text, "+")
k = UBound(a)
m = 0
For i = 0 To k
m = m + Val(a(i))
Next
MsgBox m