Lookingt for some suggestions

[WoF]

That's right. But if the ArcNimTst() would still be a sub without parameter he would have got an error message in that If statement. I suppose it is now a function with a parameter.

[Bezzie]

I was also wondering about that, but was working on the code supplied.

[WoF]

Not for me.
If i have

Private Sub ArcNimTst()
...
End Sub

Then the line If AcrNimTst(password) Then will first produce a
'wrong number of arguments' error.When you take away the argument,
the line If AcrNimTst() Then will produce an 'function or variable expected' error.