Testing, Testing! Putting LINQ Through The Wringer

Public Iterator Function StreamAllLines(path As String) As IEnumerable(Of String)
        Using fileStream = New System.IO.StreamReader(path)
            Dim line As String = fileStream.ReadLine()
            Do While line <> Nothing
                Yield line
                line = fileStream.ReadLine()
            Loop
        End Using
    End Function

For Each l In words 
                If l.Length = 5 Then lst.Add(l)
            Next

lst = (From x In words Where x.Length = 5).ToList

lst = Array.FindAll(words, (Function(x) x.Length = 5)).ToList

For Each l In StreamAllLines(filename)
                If l.Length = 5 Then lst.Add(l)
            Next

lst = (From x In StreamAllLines(filename) Where x.Length = 5).ToList

lst = Array.FindAll(StreamAllLines(filename).ToArray, (Function(x) x.Length = 5)).ToList