You can do this

Public Sub DoingSomethingExceptItIs_3_OR_6_OR_9()

Dim LoopCounter As Integer

For LoopCounter = 1 To 10
Select Case True
Case LoopCounter Mod 3 <> 0
MsgBox LoopCounter
End Select
Next LoopCounter

End Sub


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Werner Rohrmoser" <werner-rohrmoser@hotmail.de> wrote in message
news:1136281647.467617.230520@o13g2000cwo.googlegroups.com...
> 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
>