A função VBA Choose retorna um valor de sua lista de argumentos com um determinado número.
Choose(número, valor_1, valor_2, valor_3, etc.)
Exibição de um dos 3 valores pelo número escrito na variável "choice":
Sub ChooseExample1()
choice = 1
course = Choose(choice, "Excel", "VBA", "Google Sheets")
MsgBox "Curso selecionado:" & course 'Retorna a mensagem: "Curso selecionado: Excel"
End Sub
Uma alternativa para a função Choose é usar um array (Array):
Sub ChooseExample2()
choice = 1
course = Array("Excel", "VBA", "Google Sheets")(choice)
MsgBox "Curso selecionado:" & course 'Retorna a mensagem: "Curso selecionado: VBA"
End Sub