VB select case is > 2 and is < 5的表示是错误的,正确的应该怎么写?

Private Sub Command1_Click()
Dim a As Integer,Msg As String
a = 6 '修改这个值,试试...
Select Case a
Case 0 To 2
Msg = "0 To 2"
Case 3
Msg = "case 3"
Case 4 To 7
Msg = "4 To 7"
Case 8 To 9
Msg = "8 To 9"
Case Else
Msg = "Case else"
End Select
MsgBox Msg
End Su