Ok ! Then try this :


*/KeyPress Method of TextBox control
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode = 9 .OR. nKeyCode=13 .AND. AT(" ",This.Text)#0
lcVal = CHRTRAN(This.Text,",.", "")
This.Value = VAL( LEFT(lcVal, AT(" ",lcVal) ))
ENDIF

Zero or some other number still shows, but value on exit should be ok !