Module Program Sub Main() Dim currentVideoGames() As String = {"A", "B", "this is a test", "C", "D", "E"} Dim subset = currentVideoGames.Where(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