Excel VBA ONLY

I have a function

Function TopK(k As Integer, rngT As Range) End Function

where I'm trying to pass an integer argument in the form of either an array or range that finds the element with the k^th largest value, where k = 1, 2, or 3.

Please help me. I will upvote.

Regards