急求vb程序 计算器有优先级别的 希望代码可以直接复制到记事本然后转为frm

Private Sub Text1_Change()
Text2.Text = CalcScript(Text1.Text)
End Sub

Private Sub Form_Load()
Text1.Text = "(1+2)*3 + Sin(3.14159)"
End Sub

Public Function CalcScript(ByVal nStr As String) As Double
Dim ObjScript

On Error GoTo Cuo
Set ObjScript = CreateObject("MSScriptControl.ScriptControl")

ObjScript.Language = "VBScript"
CalcScript = ObjScript.Eval(nStr)

Set ObjScript = Nothing
Exit Function

Cuo:
CalcScript = 0
Set ObjScript = Nothing
End Function