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.