Private Function SumOfBiggest(Numbers() As Double, _
        NumberOfBiggest As Integer) As Double
 
        Array.Sort(numbers)
 
        Dim nc As Integer = numbers.Length
 
        NumberOfBiggest = Math.Min(NumberOfBiggest, nc)
        NumberOfBiggest = Math.Max(NumberOfBiggest, 1)
 
        Dim sum As Double = 0
        For i As Integer = nc - NumberOfBiggest To nc - 1
            sum += Numbers(i)
        Next i
 
        Return sum
End Function