Audruck mit mehreren Werten vergleichen
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