たとえば、次のような使い方ができます。 Age = InputBox("年齢は?") Select Case Age Case Is < 20 MsgBox "未成年ですね?" Case 30 To 39 MsgBox "30代ですね?" Case 77, 88, 99 MsgBox "喜寿か米寿か白寿ですね?" Case Else MsgBox Age & "ですか・・・。" End Select これらを組み合わせた次のような書き方も有効です。 Case 14, 20 To 30, Is >= 100 この文は 「14か、20〜30の間か、100以上」という条件を表します。 ちょっと面白いのは To が文字列に対しても使える点です。たとえば、次のような書き方も有効です。 Case "か" To "こんん" この条件はあいうえお順で「始めの文字が「か」行だったら」という条件を表します。