Select Case ステートメントで CASE 節が Case Else の後に記述されています。Case Else の後ろに他の Case を続けることはできません。
Select Case ステートメントで Case Else を最後の Case 節とするか、キーワード Else を省略してください。