Indexed Where
Imports System.IO Imports System.Reflection Imports System.Linq Imports System.Xml.Linq Public Class MainClass Public Shared Sub Main Dim digits = New String() {"zero", "one", "two"} Dim shortDigits = digits.Where(Function(digit, index) digit.Length < index) Console.WriteLine("Short digits:") For Each d In shortDigits Console.WriteLine("The word " & d & " is shorter than its value.") Next End Sub End Class