Find a Nth highest or lowest integers in a given series of integers using VB.net

Imports System.Collections.Generic
Imports System.Linq
Namespace ConsoleApplication2

	Class Program

		Private Shared Sub Main(args As String())


			Dim lstInts As New List(Of Integer)() From { _
				1, _
				206, _
				34, _
				-4, _
				590, _
				61, _
				78, _
				8, _
				9, _
				180, _
				237 _
			}



			Dim minNum As Integer = lstInts.Min()
			'lowest number
			Dim maxNum As Integer = lstInts.Max()
			'highest number


			Console.WriteLine("Min = {0} , Max = {1}", minNum, maxNum)



			Console.ReadKey(True)

		End Sub

	End Class

End Namespace