change selected annotation's layer

I'm going to blatantly ask that someone write a .swp macro for me that takes the selected items and put's them on a specified layer.  The user will have preselected a set of annotations and after running the macro the annotations are set to the layer "TEXT".

Thanks in advance and I promise to give you 4 points

SolidworksApi macros