Sub Calc()
Dim Result As Single
Set MSSC = CreateObject("MSScriptControl.ScriptControl")
MSSC.Language = "VBScript"
Result = MSSC.Eval(Text1.Text)
Label2.Caption = CStr(Result)
End Sub
Private Sub Command1_Click()
Calc
End Sub
Private Sub Command2_Click()
Text1.Text = ""
End Sub
