Convert old text style to new text style in blocks

[Corro]

Good Morning All
I have been try to write a lisp routine to convert old text styles to the new text style within inserted blocks.
This a part of a larger routine to clean up old drawings.
I am trying to select the blocks within the drawing and ten get it to select only text or mtext, but I am receiving every object within the drawing.
What am I going wrong?????
Attached is lisp routine and simple sample drawing.
Using AutoCAD 2017.
Thank you for any help.
Steve

[Tom Beauford]

I've used for years a very nice dialog routine by T.Willey MergeTextStyles.lsp you should take a look at:
http://www.theswamp.org/index.php?topic=17659.0;all