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