Select case su range numerico.

[Santino83_02]

suggeriscono da google:

Select Case theAge
Case Is < 18
ageGroup =

"Child"
Case 19 To 49
ageGroup =

"UnderFifty"
Case 50 To 64
ageGroup =

"FiftyToSixtyFour"
Case 65 To 79
ageGroup =

"SixtyFiveToSeventyNine"
End Select