Private Sub TextBox1_AfterUpdate()
TextBox1.Text = Evaluate(TextBox1.Text)
End Sub

If you wanted to post the result into a different Textbox, say, TextBox2:
TextBox2.Text = Evaluate(TextBox1.Text)


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"Silsila" wrote in message
...
Hi All,

Can I add up in a text box in userform. For example the
user would type 10+12.50 in the text box and the text box
would show 22.50

Also how can I add up few text boxes into another one. Any
help is appreciated. Thanks in advance.

Regards