سوال در مورد select case

سلام
خسته نباشين يه سوال داشتم راجع به select
اشكال اين برنامه چيه كه هر چي عدد تو text وارد ميكنم"good " نشون ميده

a = Text1.Text
Select Case a
Case a < 10
Print "bad"
Case 10 < a < 15
Print "middle"
Case Else
Print "good"
End Select
End Sub

ممنون ميشم جواب بدين

کدی که نوشتی. کلا اشتباهه.

کد:

---

a = Text1.Text
Select Case a
Case Is < 10
Print "bad"
Case 10 To 15
Print "middle"
Case Else
Print "good"
End Select

---

درستش اینیه که آرام نوشت.