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