vb select case

选择符合case后面条件的语句
比如
select case a
case 1
msgbox "a"
case 2 to 5
msgbox "b"
case else
msgbox "c"
end select
以上面代码为例,即当a满足1时候弹出对话框a,满足值为2-5的时候弹出对话框b,满足其它值的时候弹出对话框c