Visual Basic.NET - select case

holas,
tengo una estructura de casos
case is = 1
case is = 2 or 4 or 6
end select
el segudo caso no funciona nunca entra por el
que puede faltar?

Hola, el case no lo debes usar de esa manera, lo que debes hacer es separar los valores por comas
case is = 1,4,6 ensayalo y cuentas...