Okay I tried two possibilities.

First I tried changing the
Private Function Declare LogonUser ... ByVal lpszDomain As String
to
Private Function Declare LogonUser ... ByVal lpszDomain As Long

and leaving the call with lpszDomain as 0&

no change.

I then tried using the original Declare LogonUser and passing in "." instead of 0&.

no change.

Greg