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