[RESOLVED] Compute expression

[RS_Arm]

Hello.
Is there any VB function which allows to compute an expression?

Example:
In a textbox input:"2+2"

On button click
msgbox compute (me.text1)


Thank you

[Hack]

Add a reference to the component: Microsoft Script Control 1.0

Private Sub Command1_Click() 
Dim script As ScriptControl 
Set script = New ScriptControl 
script.Language = "VBScript" 
Debug.Print script.Eval("2+2")
End Sub

[Joacim Andersson]

You could add the Microsoft Script Control to your Form and the use code simular to this:

MsgBox ScriptControl1.Eval(Text1.Text)

Edit: I'm just too slow today

[zeezee]

Add a Microsoft Script Control to your components. Add new component to your form. use like

ScriptControl1.Eval("2+2")

There are some examples here. search and see.

[zeezee]

I m damn slow, as usual

[RS_Arm]

Awesome...
Thank you