VB.net program to find out Even/Odd numbers using OUT parameters

Class MainClass
	Public Shared Sub Main(args As String())
		Dim evenNumList = New List(Of Integer)()
		Dim oddNumList = New List(Of Integer)()

		GetEvenOddNumbersUsingOutParameters(evenNumList, oddNumList)

	End Sub

	Private Shared Sub GetEvenOddNumbersUsingOutParameters(ByRef evenNumList As List(Of Integer), ByRef oddNumList As List(Of Integer))
		Dim numbers = Enumerable.Range(1, 20)
		'generate numbers between 1 to 20
		evenNumList = numbers.Where(Function(i) i Mod 2 = 0).ToList()
		oddNumList = numbers.Where(Function(i) i Mod 2 <> 0).ToList()
	End Sub

End Class