I have written code that calculates an expression typed into a textbox. For example, if I type 122*1.06 into a textbox, it should return 129.32 back into the same textbox. Instead it only returns 129 without the decimals. Any ideas. Also, anyone have a shorter version of this. Here is my code from the valid event of the textbox:

NEWVAL = ""
HELDVAL = ""
CURVALUE = ""
THISVALUE = ALLTRIM(THIS.VALUE)
PLUSMARK = OCCURS("+",THISVALUE)
MINUSMARK = OCCURS("-",THISVALUE)
TIMESMARK = OCCURS("*",THISVALUE)
DIVIDEMARK = OCCURS("/",THISVALUE)
TOTALMARKS = PLUSMARK + MINUSMARK + TIMESMARK + DIVIDEMARK
IF TOTALMARKS > 0
	FOR CALCLOOP = 1 TO LEN(ALLTRIM(THISVALUE))
		CURCHAR = SUBSTR(THISVALUE,CALCLOOP,1)
		DO CASE
		CASE CURCHAR = "+"
			CURSIGN = "+"
			IF EMPTY(HELDVAL)
				HELDVAL = CURVALUE
				CURVALUE = ""
			ELSE
				NEWVAL = VAL(HELDVAL) + VAL(CURVALUE)
				HELDVAL = STR(NEWVAL)
				NEWVAL = ""
				CURVALUE = ""
			ENDIF
		CASE CURCHAR = "-"
			CURSIGN = "-"
			IF EMPTY(HELDVAL)
				HELDVAL = CURVALUE
				CURVALUE = ""
			ELSE
				NEWVAL = VAL(HELDVAL) - VAL(CURVALUE)
				HELDVAL = STR(NEWVAL)
				NEWVAL = ""
				CURVALUE = ""
			ENDIF
		CASE CURCHAR = "*"
			CURSIGN = "*"
			IF EMPTY(HELDVAL)
				HELDVAL = CURVALUE
				CURVALUE = ""
			ELSE
				NEWVAL = VAL(HELDVAL) * VAL(CURVALUE)
				HELDVAL = STR(NEWVAL)
				NEWVAL = ""
				CURVALUE = ""
			ENDIF
		CASE CURCHAR = "/"
			CURSIGN = "/"
			IF EMPTY(HELDVAL)
				HELDVAL = CURVALUE
				CURVALUE = ""
			ELSE
				NEWVAL = VAL(HELDVAL) / VAL(CURVALUE)
				HELDVAL = STR(NEWVAL)
				NEWVAL = ""
				CURVALUE = ""
			ENDIF
		OTHERWISE
			CURVALUE = CURVALUE + SUBSTR(THISVALUE,CALCLOOP,1)
		ENDCASE
	ENDFOR
	FINALCALCSTR = "NEWVAL = VAL(HELDVAL) " + CURSIGN + " VAL(CURVALUE)"
	&FINALCALCSTR
	THIS.VALUE = ALLTRIM(STR(NEWVAL))
	this.SelStart = LEN(this.Value)
ENDIF