Find a string in Procedures, Triggers, etc

I want to thank James Travis for his original and excellent work and to Razvan Socol for alerting about a similar problem that led me to improve James' code. The problem is that when searching for a word that is split between two 8kb blocks, James' code would ignore it. The solution is to look for the parts in the adjacent blocks. This code works for words up to 10 chars but the code can be changed to allow longer words. The original code is here: http://www.planet-source-code.com/vb/scripts/showcode.asp?lngWId=5&txtCodeId=414