如何让VB可以执行表达式

直接上代码，不多说，大家都懂的！
Option Explicit
Dim lResult As Long
Dim Expression As String
Dim Mscl As Object
Private Sub Command1_Click()
Expression = "((3+2*7-10)\3+32) mod 9"
lResult = Mscl.Eval(Expression)
MsgBox lResult
End Sub
Private Sub Form_Load()
Set Mscl = CreateObject("MSScriptControl.ScriptControl")
Mscl.Language = "vbscript"
End Sub