Dim выражение As Integer

выражение = InputBox("ввести", "выражение")

Select Case выражение

Case 2, 4, 6, 8

MsgBox "Выбор1"

Case 12 To 14

MsgBox "Выбор2"

Case Is > 20

MsgBox "Выбор3"

Case Else

MsgBox "Не было совпадения"