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