Module Program
Sub Main()
Dim currentVideoGames() As String = {"A", "B", "this is a test", "D", "E", "S"}
Dim numb As Integer = (From g In currentVideoGames _
Where g.Length > 6 _
Order By g _
Select g).Count()
Console.WriteLine("{0} items honor the LINQ query.", numb)
End Sub
End Module