求VB计算器编成高手帮帮忙

Private Sub Command1_Click()
Dim sc As Object
Set sc = CreateObject("ScriptControl")
sc.Language = "VBScript"
MsgBox sc.Eval(Text1.Text), 64, "YES!"
Set sc = Nothing
End Sub'在text1.text里输入1+1即可得出答案 按下按钮

VB中有个专门编写计算器的控件，他附带计算器大多数按钮的计算方法，用它写计算器很简单，以前写过一个，给删了，要不就可以给你了