It appears that the SELECT CASE does not work properly in my code below. I would expect the second case message would show up, but it wouldn’t. What am I missing here?
Sub MAIN_XP (Param1)
Dim a as double
a = 2.5
Select case a
Case a >= 3.0 and a <= 4.0 'First Case
Msgbox(“OK”)
Case a >= 2.0 and a < 3.0 'Second Case
Msgbox(“NOT TOO BAD.”)
Case Else 'Other Case
Msgbox(“Value not accepted.”)
End select
End Sub