Function ChooseF() Dim A As String A = Choose(3, "mujo", "pero", "haso", "vitomir") ChooseF = A End Function