Option Explicit OnOption Strict OnModule 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 SubEnd Module