Easy If statement prob... [RESOLVED]

[LITHIA]

Hey all,

This question is real daft but Im not sure what is wrong with my If statement. I havn't needed to do something like this before and Im getting errors so anyone know what I am doing wrong?

If CurrentUser <> "User1" Or "User2" Or "User3" Then

CurrentUser is defined like this:

Private Function CurrentUser() As String
Dim sBuf As String
 
' allocate maximum string size
sBuf = String(255, Chr(0))
GetUserName sBuf, 255
CurrentUser = sBuf
 
End Function

Dont worry, theres no errors with that, It works fine elsewhere and I have the correct API and all.

Any ideas? Is there such thing as "Or" in an If statement? What else should I do? Thanks

Btw, I am getting an "Type Mismatch" error

[Souled_Out]

You need to alter your IF statement.

If CurrentUser <> "User1" Or CurrentUser <> "User2" Or CurrentUser <> "User3" Then

That should do the trick, it did in a simple test app i just made.

I'm not certain exactly what the purpose of your app is, but my opinion is that a select case might be a better way to code it instead of using what looks like it could become an infinitely long IF statement.

[LITHIA]

thanks, works now

thought it would have been something simple like that lol, never used Or in my statement before

thanks again