Public Function GetSortedElement _
          (ByVal lst As List(Of Double), ByVal IsSorted As Boolean, _
           ByVal OrderPosition As Integer, _
           ByRef ElementValue As Double, _
           ByRef ElementIndex As Integer) As Boolean
 
        Static arr() As Double, ListIndex() As Integer
 
        ElementValue = 0 : ElementIndex = -1
        If OrderPosition < 0 Then Return False
        If lst Is Nothing OrElse lst.Count <= OrderPosition Then Return False
 
        If IsSorted Then
            If arr Is Nothing OrElse arr.Length <> lst.Count Then Return False
        Else
            arr = lst.ToArray
            ReDim ListIndex(arr.Length - 1)
            For i As Integer = 0 To ListIndex.Length - 1 
               ListIndex(i) = i 
            Next i
            Array.Sort(arr, ListIndex)
        End If
        ElementValue = arr(OrderPosition)
        ElementIndex = ListIndex(OrderPosition)
        Return True
    End Function