>>849
Select Case AAA
case "10"
　　msgbox "10"
Case "11", "12", "13"
　　msgbox "11か12か13以外"
Case Else
　　msgbox "それ以外"
End Select