Limitations of "OR" Logical Operator

[vivekchha]

To protect my Application from unauthorized use, I want to use hex Serials of particular systems and create a list of those serials in a module. If the serial of system matches with that of the serials given in my module (this module runs at the workbook open event) then access is given else application quits.
I have coded like this
If code <> "Serials" or code <> "Serials" ....
Application.DisplayAlerts = False
Application.quit
End if
I want to know how many times this "Or" can be used, i.e. if there is any limitation on its use.
Or
Can you suggest me a better way to accomplish this task.
Thanks

Sincerely

Vivekchha

[:) Sixthsense :)]

What is the difference between these two?

Please Login or Register  to view this content.

[vivekchha]

These are just examples. Serials are generated with the help of other module. I send this module to prospective user and then user generates the serials and send back to me the particular serials which I authorize in my module. Whenever he runs my application on his system the application checks for the serials of his system and if the same are found in my module, access is given else application quits. So simple.
While allowing access I have to use logical operator "Or" many times. So I just wanted to know if there is any limitations on its use or if I can create a custom list in my module to match those serials. If yes, then how?
Thanks
Sincerely
Vivekchha

[:) Sixthsense :)]

I suggest you not to go for nested OR instead have a look in using Match function in VBA (Works on Range / Array) which can do the comparison in the loaded array which takes one line of code and works faster too

[vivekchha]

Thanks Sir.

I would just try and then get back to tell the result.

Sincerely
Vivekchha

[vivekchha]

Sir,
I learnt how I can create an array and store the serials in those arrays. But how to find that a specific value resides in an array.
Say I created 10 arrays by
dim myCheck(1 to 10) as string
Now I assigned values to the arrays
myCheck(1)="Hello1"
myCheck(2)="Laila2"
myCheck(3)="Ravina3"
Now I want to check if any of array value matches with my string or not.
I do not know how to accomplish it.
I want the code to return TRUE if myStr matches with any of the array else return FALSE.

Sincerely
vivekchha

[protonLeah]

Please Login or Register  to view this content.

[vivekchha]

Sir,

Thanks for your reply. However I have done the task in the following way.
For i = LBound(myCheck) To UBound(muCheck)
If InStr(myCheck(i), myStr) > 0 Then
MsgBox ("Welcome Friend!")
Exit Sub
End If
Next
Application.quit