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