ciao ragazzi

ho un piccolo problema di calcoli con decimali.
il codice qui sotto funziona solo fino a 999
dopo mi da 1

esempio:
(800,10 + 80,20 = 880,3)
(1.000,50 + 10,20 = 11,7)

dovè l'errore?

CStr(Val(Text2.Text) + Val(text1.Text))

helo