That whole IF construct should be replaced with a SELECT CASE construct since only one of the IFs can prevail, the last TRUE IF. There is no point in enumerating group membership once you have a TRUE result so the mutually excluse CASE would be better.

OH, and it gets rid of those damn GOTOs!
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.