VB.NET ครับช่วยที่ครับมือใหม่ เกี่ยวกับ select case ครับ ขอบคุณครับ

 Dim money As String
   money = TextBox1.Text
   Select money
   Case 100,000 
      interest_rate=7
   Case 50,000 TO 100,000 
           interest_rate=5
   Case 30,000 TO 50,000
         interest_rate=3
   Case 10,000 TO 30,000 
         interest_rate=2
  Case Is <= 10,000
       interest_rate=0.5
   Case Else
       messagebox.show("ไม่อยู่ในขอบเขตเงินเดือน")

   End Select
 End Sub