>>706
こういうふうにはしないほうが良い?

Sub Macro()
  Select Case True
    Case C <> 1: msg ="C"
    Case B <> 1: msg ="B"
    Case A <> 1: msg ="A"
    Case Else: msg= "メイン処理を実行します"
  End Select
End Sub

msgbox(msg)