vlax-ldata-put help please

i pulled this off the other day but now i cant remember how its done, all i want to do is use vlax-ldata-put to write data to an object then vlax-ldata-get to get it back, can someone show me a simple example to refresh my mind please, thanks =)

Examples:

(defun c:LDWrite ( / ent )
 (vl-load-com)

 (if (setq ent (car (entsel "\nSelect Object to Write Data to: ")))
   (vlax-ldata-put ent "Data-Test" "Lee Mac"))

 (princ))

(defun c:LDRead ( / ent dat )
 (vl-load-com)

 (if (and (setq ent (car (entsel "\nSelect Object to Read Data: ")))
          (setq dat (vlax-ldata-get ent "Data-Test")))

   (alert dat))

 (princ))

thanks a lot lee!

You're welcome Mr Mojo

You're welcome Mr Mojo

LoL

Mr. Mojo Risin