Select Case Problem

wie muß man die Select Case Anweisung schreiben, damit auch Zwischenwerte berücksichtigt werden.

Hierbei werden keine Zwischenwerte berücksichtigt
Select Case Zahl
Case 1
' Code
Case 2
' Code
Case 3
' Code
End Select

Nimmt man zum Beispiel:
Case Is 1 To 2 und
Case Is 2 To 3

dann ist das für die Zahl 2 nicht eindeutig.

Der folgende Code wäre zwar richtig, aber zu umständlich:
Case Is 1 To 1,9999999999999999 und
Case Is 2 To 2,9999999999999999

Wäre schön, wenn mir jemand die Lösung schicken könnte.

Gruß Rainer