AutoCAD Visual LISP / AutoLISP :: Add Counter For Layer Changing

i have this LISP as attach...at moment it works like this as below:-

1) Activate the LISP

2) Automatic select all the preset block name in the lisp and change to a pre-set layer

3) LISP end

Now i wish it to be like this:-

1) Activate the LISP

2) Automatic select all the preset block name in the lisp and change to a pre-set layer

3) At command prompt, will state out " n block have been change to layer Eye Bolt"

4) LISP end