x = 4 Select Case x Case 1 MsgBox "Case 1" Case 2 MsgBox "Case 2" Case 3 MsgBox "Case 3" Case 4 MsgBox "Case 4" End Select x = "hoge" 'x = "foo" Select Case x Case "foo" MsgBox "Case 1" Case "bar" MsgBox "Case 2" Case "baz" MsgBox "Case 3"…