LINQ VB.Net

Option Explicit On
Option Strict On
Module Program
  Sub Main()
    Dim numbers() As Integer = {10, 20, 30, 40, 1, 2, 3, 8}
    Dim subsetAsListOfInts As List(Of Integer) = (From i In numbers Where i < 10 Select i).ToList()
  End Sub
End Module