(defun c:qw (/ dc ns nm z en nn)
            (vl-load-com)
  (if (and (setq dc (vla-get-ActiveDocument
             (vlax-get-acad-object))
          ns (ssget '((0 . "*Text"))))
        (setq nm (getreal "\nEnter the number to add:")))
    (progn (vla-StartUndomark dc)
      (repeat (setq z (sslength ns))
        (setq z (1- z)
          en (entget (ssname ns z))
            nn (assoc 1 en))
        (entmod (subst (cons 1 (rtos
          (+ (atof (cdr nn)) nm) 2)) nn en)))
      (vla-EndUndomark dc)
    )
  ) (prin1)
)