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