dim a as byte
dim b as word
dim s as string
 
select case MyFunc() + a 'hypothetical function that returns a value
case 1 to 2,6,9,128,200 to 210
  'do something
end select
 
select case GetChar() 'hypothetical function that returns a byte value
case "a" to "z","0" to "9"
  'do something
end select
 
select case b 'a word value
case 0xffac,0x12bc
  'do something
case "_A","bc"
  'do something
end select
select case s
case "command1"
  'do something
case "command2","other command"
  'do something
end select