This is a very simple method it uses the attribute order of creation so just enter the attribute sequence number as hinted if the bottom attribute is the second then enter 2 and the sequence number to start with.
Code:
(defun c:addnatt ( / x num att)
(setq x (- (getint "\nEnter the attribute order position eg 1 is 1st attribute") 1))
(setq num (getint "\nEnter start number"))
(while (= (vlax-property-available-p (setq obj (vlax-ename->vla-object (car (entsel "Select Block")))) 'Hasattributes) T)
(setq att (vlax-invoke obj 'getattributes))
(vla-put-textstring (nth x att) (rtos num 2 0))
(setq num (+ num 1))
)
)
(c:addnatt)