VB簡易リファレンスの
Select〜Cace セレクト・ケース Ｓ 想定した値に合せた処理を行う
↑これではなく
Select〜Caseでは無いでしょうか

すみません、ミスプリントでした。m(__)m

ご指摘、ありがとうございました。早速修正しておきます。