dim a as byte
dim b as word
dim s as string
 
select case MeineFunktion() + a
case 1 to 2,6,9,128,200 to 210
  'mache was
end select
 
select case HoleZeichen() 'Funktion gibt einen Byte-Wert zurück
case "a" to "z","0" to "9"
  'mache was
end select
 
select case b
case 0xffac,0x12bc
  'mache was
case "_A","bc"
  'mache was
end select
 
select case s
case "kommando1"
  'mache was
case "kommando2","anderes kommando"
  'mache was
end select