LINQ VB.Net

Module Program
  Sub Main()
    Dim currentVideoGames As String() = {"A", "B", "this is a test", "C","D", "E"}
    Dim subset = From g In currentVideoGames Where g.Length > 6 Order By g Select g
    For Each s As String In subset
      Console.WriteLine("Item: {0}", s)
    Next
  End Sub
End Module