Próbáld ki ezt is:

Function Rendezett_tomb(bemeneti_tomb)
    Dim Result(1 To 50) As Integer, i As Integer
    
    For i = 1 To 50
        Result(i) = Application.WorksheetFunction.Small(bemeneti_tomb, i)
    Next
    Rendezett_tomb = Result
End Function