decimals need to go as doubles, so dblValue1=cdbl(textbox1.text) and dblValue2=cdbl(textbox2.text)

then tot will be the sum of the two doubles, tot will need to be a double to.

I'd put in an ISNUMERIC() check on both boxes before running the sub.