Haha, You stripped-out all tags in my source example ;-)
So, You have incomplete post on screen (how to post a full source and tags?)

What is missing:
Point 2: in quotes: Tag Message EndTag

Point 3:
lcMessage = ...first quotes: Tag NoClient EndTag
lcMessage = ...second quotes: Tag /NoClient EndTag

lcNoClient = STREXTRACT(lcMessage, Tag NoClient EndTag, Tag /NoClient EndTag)
...

Drazen