(defun c:AddMe ()
 (apply '+ (vl-remove-if-not 'numberp
                 (mapcar '(lambda (x) (atof (vl-string-subst "." "," (vl-catch-all-apply 'vla-get-textstring (list (vlax-ename->vla-object x))))))
                          (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget (list (cons 0 "*TEXT"))))))))))