Example - Choose Function

Sub Main()
    number = 2
    GetChoice = Choose(number, "Choice1", "Choice2", "Choice3")
    MsgBox GetChoice
End Sub