Select Case <นิพจน์>
case <ค่านิพจน์ 1>
Sel="select.............1
case <ค่านิพจน์ 2>
Sel="select.............2
case <ค่านิพจน์ 3>
Sel="select............. 3
case <ค่านิพจน์ 4>
Sel="select.............4
case else
Sel="select.............xx คำสั่งนิพจน์ที่ไม่ตรงกันกรณีใด
End Select