Thank you very much Paul.

This does what I wanted. If possible a little bit more robust, that would be great. I tried adding Test as well:
'sUserName = "TESTER1"
'sUserName = "TEST1"
But this did not seem to accept the Test (not Tester) account.