Text to Value Convertion 1

[ninash]

Hi Guys,

This is I hope a simple problem
I have 2 text boxes in a user from and I need to add the 2 values together to evaluate the result. Unfortunately both of the values are being seen as text and I need to see them as numbers ..... Anyone out there to help me

 

[ETID]

Sheets("sheet1&quot.Shapes("Text Box 1&quot.Select
x = Val(Selection.Characters.Text)

Sheets("sheet1&quot.Shapes("Text Box 3&quot.Select
x = x + Val(Selection.Characters.Text)

MsgBox (Str$(x))

 

[ninash]

Thanks that worked fine

 

[Loomah]

OR.........
This sits nicely in the code for the sheet containing the text boxes

Option Explicit

Sub test()
Dim x As Single
x = CSng(Txt1) + CSng(Txt2)
MsgBox x

End Sub

Obviously if the values are to be integers change x and substitutes CInt for CSng