Automatically Label those Road Assemblies quickly

I am a great believer in the 80/20 rule and Civil3d seems to follow this to a tee. For example 80% of civil3d objects have a labelling style and 20% of them do not. One example of those objects that do not are assemblies and sub assemblies. Anyone that works with Civil3d on a daily basis will know the hassle when  you take over someone’s corridor model and have to figure out what assemblies are what. Tony on his blog tonyscivil3dworld gave a great tip at the beginning of the year of how to label assemblies with mtexts with fields.
http://tonyscivil3dworld.blogspot.com/2010/01/assemblies-names-labels.html

As I am what one could call a lazy drafter and do not like to sit there doing time consuming labelling. I searched the web for now one could add the labels to assemblies automatically and sure enough on Kean Walmsley’s blog http://through-the-interface.typepad.com he gives and example on now to add labels with .net http://through-the-interface.typepad.com/through_the_interface/fields/ so I have combined the two tips together in the following vba code for 2010 to do the labelling automatically. Here is a link to download the vba code
https://sites.google.com/site/c3dxtreme/home
and here is quick video demonstrating of what the code does

and here is a link on how to embed a video with jing http://www.techsmith.com/learn/jing/tutorials/share/embed-jing-content/ for those that are interested.