(defun c:Next ( / _sort data  x f opt i order)
(vl-load-com)
(defun _sort (m1 m2 ls) (vl-sort ls
      '(lambda (a b) (m1 (m2 a) (m2 b)))))
(defun _valid (str)
  (vl-some '(lambda (y)
              (if (eval (Car y)) (cadr y)))
           '(((wcmatch str "@") "A")
             ((eq (type (read str)) 'INT) "N"))))
(if (setq data nil ss (ssget '((0 . "TEXT"))))
  (progn
(while (not
                 (progn
                    (setq Start (getstring "\nStart Number/Letter: "))
                   (if (setq tp (_valid start)) Tp (prompt "\nInvalid Value"))
            )
       )
)
        (initget "LTR TTB RTL BTT")
(setq start (strcase start) opt (cond ( (getkword "\nChoose option [LTR/TTB/RTL/BTT]: <LTR>") ) ( "LTR" )))
(setq f (assoc opt
          (list '("LTR" (_sort < caadr  data))
        '("TTB" (_sort > cadadr data))
      '("RTL" (_sort > caadr  data))
      '("BTT" (_sort < cadadr data)))))
(repeat (setq i (sslength ss))
                  (setq data (cons
                  (mapcar 'cdr (vl-remove-if-not '(lambda (l)
                                                     (member (car l) '(-1 10 )))
                                  (entget (ssname ss (setq i (1- i)))))) data))
                  )
(setq order (eval (cadr f))
                      next  (cadr (Assoc tp '(("N" (itoa (1+ (atoi start))))
                                        ("A" (chr (1+ (ascii start))))))))
  (foreach itm (mapcar 'car order)
  (vla-put-textstring (vlax-ename->vla-object itm)
  start)
                  (setq start (eval next))
                      )
  )
  )
  (princ)
  )