有没有大神帮帮忙，求教我这题错在哪儿了？

做计算器，大于2000返回百分十五，小等于2000到1500返回百分十，1000到小等于1500返回百分八，小等于1000返回百分3。计算应付金额
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = Val(Text1)
Select Case a
Case Is <= 1000
b = a - a * 3 / 100
Case Is <= 1500, Is > 1000
b = a - a * 8 / 100
Case Is <= 2000, Is > 1500
b = a - a * 10 / 100
Case Else
b = a - a * 15 / 100
End Select
Text2.Text = b
End Sub
为何我每一部都没问题，但1500到小等于2000，和大于2000的程序都按百分八的比例返回，其他情况都没问题，请问我编程错在哪？