How to get text from shape?

Hello O Great Helpers,
How can i extract text from specific shape?
Exp.xlsx (9.0 KB)
Thanks alot

Try this vb code ?

Thanks for the reply sadly couldn’t use Vba