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 "Не было совпадения"