(vl-load-com)
(setq ss (ssget "X" '((0 . "*text"))))
(setq i 0 )
(setq data '())
(while (< i (sslength ss))
(setq data (append data (list i)))
(setq i (+ i 1))
)
(foreach x data
(setq sstr (vlax-ename->vla-object (ssname ss x)))
(setq sst (vlax-get-property sstr "TextString") )
(princ sst)
(princ "\n")
)