CASE thisform.cactivefield = "txtmenge" IF cmdvalue $ "0123456789-" IF cmdvalue == "-" IF AT("-",thisform.cValStore) > 0 thisform.cValStore = Strtran(thisform.cValstore,"-","") Else thisform.cValStore = cmdvalue + thisform.cValstore Endif Else thisform.cValStore = thisform.cValstore + cmdvalue Endif thisform.txtpad.txtmenge.value = VAL(thisform.cValstore) EndifBest regards