Choose

|

Sub sample()

    MsgBox Choose(2, "みかん", "りんご", "バナナ") '2番目を返します

End Sub