>>LOCAL lcControl >>lcControl = IIF(UPPER(LEFT(Object.ControlSource,2)) == [M.],SUSBTR(Object.ControlSource,3),Object.ControlSource) >>DO CASE >> CASE TYPE([m.]+lcControl) == [U] AND; && Not a memory variable >> TYPE(lcControl) # [U] >> REPLACE (lcControl) WITH WITH ltNewDateTime >> CASE TYPE(lcControl) == [C] && Memory variable >> STORE ltNewDateTime TO (lcControl) >>OTHERWISE >> *** something wrong >>ENDCASE >>>>(not tested for all occasions)