Option Explicit
Dim BMoney As Double

Private Sub Text2_Change()
If 20 > Val(Text2) > 0 Then
      BMoney = 5000
      Label16 = "20㎡以下，计：" & BMoney & "元"
  ElseIf 100 > Val(Text2) >= 20 Then
      BMoney = 10000
      Label16 = "20㎡（含）-100㎡，计：" & BMoney & "元"
  ElseIf 200 > Val(Text2) >= 100 Then
      BMoney = 15000
      Label16 = "100㎡（含）-200㎡，计：" & BMoney & "元"
  ElseIf 500 > Val(Text2) >= 200 Then
      BMoney = 20000
      Label16 = "200㎡（含）-500㎡，计：" & BMoney & "元"
  Else
      BMoney = 30000
      Label16 = "500㎡（含）以上，计：" & BMoney & "元"
End If
End Sub

'问题：当输入Text2为10时，结果为30000，即跳到“500㎡（含）以上”这档，而不是5000的"20㎡以下”这档，请帮助，谢谢。