مشکل در استفاده از دستور select..case

[javady_joon]

با سلام من وقتی دستور select...case رو به این شکل مینویسم
فقط دستور اول رو اجرا میکنه حتی اگر مقدار case های بعدی رو وارد کنم
Select Case Text.Text
Case 0 To 9
MsgBox (" Mardod ")
Case 10 To 12
MsgBox ("Bad")
Case 13 To 16
MsgBox (" Normal ")
Case 17 To 19
MsgBox ("good")
Case Else
MsgBox (" Excelent")
End Select

[vbhamed]

سلام
اينطوري بنويسيد
Select Case Val(Text.Text)
Case 0 To 9
MsgBox (" Mardod ")
.
.
.