Now it is OK after your last modification which I did not notice while I have been writing my reply .
Anyway , That is really great , specially with the use of (car e) which gives a meaning that the obj is a list , besides that, I tried
it with (cadr e) and It did give me the second string in the Att. Block .
Finally , is the Obj is a list of all the Attributes in the selected block ?
(setq e (vlax-invoke obj 'GetAttributes))
(print (vla-get-TextString ([color=red]car[/color] e))
(print (vla-get-TextString ([color=red]cadr[/color] e)))
Works like a charm.
Thank you.