我想做一个BMI计算器，想套用一下case函数，但调试却发现总是出现“case else”中的情况，无论计算结果是什么，一下便是我用的完整代码，求解答：
Private Sub Command1_Click()
a = InputBox("请输入您的身高（单位：米）", "输入")
b = InputBox("请输入您的体重（单位：公斤）", "输入")
c = b / (a * a)
text1.Text = c
Select Case c
 Case c < 18.5
MsgBox ("消瘦，多吃点东西吧，别再减肥了！")
Case 18.5 < c < 23.9
MsgBox ("体重健康，继续保持哦！")
Case 24 < c < 27.9
MsgBox ("稍微重了一点儿，饮食上多加注意，多做运动哦！")
Case Else
MsgBox ("太重了，该减肥了")
End Select
End Sub