...
(progn
(prompt "select MText ")
(setq ss (ssget "_:L" '((0 . "MTEXT"))))
)
...
To :...
(progn
(prompt "\nSelect MText or Text")
(setq ss (ssget "_:L" '((0 . "*TEXT"))))
)
...