=ЕСЛИ(ЕОШИБКА(ВЫБОР(A1;"1-ый";"2-ой";"3-ий";"Последний"));"";
ВЫБОР(A1;"1-ый";"2-ой";"3-ий";"Последний"))

Public Function fctSelection(rngIdx As Range, vatItems As Variant) As Variant
    Dim varArray As Variant
    Dim intI As Integer
    
    varArray = Split(vatItems, ";")
    
    Select Case rngIdx
        Case  0 
            fctSelection = ""
            Exit Function
        Case Is > UBound(varArray) +  1 
            MsgBox "Индекс превышает номер максимального элемента."
            Exit Function
    End Select
    
    fctSelection = varArray(rngIdx -  1 )
End Function

=fctSelection(A1;"1-ый;2-ой;3-ий;Последний")

=fctSelection(A25;"1-ый;2-ой;3-ий;4-ый;...;31-ый;32-ой")