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