Hi,

I'd like to know whether it is possible to code the structure below
direct
and not indirect as I have done it.
Something like "Case Is <> 3, Is <> 6, Is <> 9".

Example:
'************************************************************************
Option Explicit
Option Compare Text

Public Sub DoingSomethingExceptItIs_3_OR_6_OR_9()

Dim LoopCounter As Integer

For LoopCounter = 1 To 10
Select Case LoopCounter
Case 3, 6, 9
Case Else
MsgBox LoopCounter
End Select
Next LoopCounter

End Sub
'*********************************************************************

Thanks for your Support
Werner