Try turning on Option Strict in VB, then even it will expect Constant expressions in CASE and Ranged integral values will throw error.

@OP, you are pretty much out of luck here. You have to use IF-THEN-ELSEIF conditions in your case.