just for test anD 0=extractvalue(1,char(4))