LINQ VB.Net

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