For Each .Stream.Lines (gb)
Dim
hStream
As
Stream
Dim
aString
As
String
For Each
aString
In
hStream.Lines
...
Next
Enumerate a stream line by line.