A message box in CanLogin should work
Function CanLogin(DomainName, ProjectName, UserName)
On Error Resume Next
CanLogin = DefaultRes
MsgBox "Look at our new features", vbOK
On Error GoTo 0
End Function
A message box in CanLogin should work
Function CanLogin(DomainName, ProjectName, UserName)
On Error Resume Next
CanLogin = DefaultRes
MsgBox "Look at our new features", vbOK
On Error GoTo 0
End Function