(defun c:tp (/ dc ts n ns tx) (vl-load-com)
  (if (setq dc (vla-get-activedocument (vlax-get-acad-object))
        ts (ssget '((0 . "text") (1 . "*Ø*"))))
    (progn (vla-startundomark dc)
      (repeat (setq n (sslength ts))
        (vla-put-TextString (setq ns (vlax-ename->vla-object
          (ssname ts (setq n (1- n))))) (substr (setq tx
            (vla-get-TextString ns)) (1+ (vl-string-position
              (ascii "Ø") tx))))) (vla-endundomark dc)
    )
  ) (prin1)
)