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 subset = From i In numbers Where i < 10 Select i
    For Each i In subset
      Console.WriteLine("{0} < 10", i)
    Next
    numbers(0) = 4
    For Each i In subset
      Console.WriteLine("{0} < 10", i)
    Next
    Console.WriteLine(subset.GetType().Name)
    Console.WriteLine(subset.GetType().Assembly)
  End Sub
End Module