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 subsetAsIntArray() As Integer = (From i In numbers Where i < 10 Select i).ToArray()
  End Sub
End Module