well, searched the registry and no joy. not even on bdc registry.

anyway, I would change your:
If (InGroup("DIV_TRAIN") <> 0)

to:
If InGroup("DIV_TRAIN")

which is the same but little bit shorter [Big Grin]
_________________________
!

download KiXnet