LINQ VB.Net

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