For Each .Stream.Lines (gb)

Dim hStream As Stream
Dim aString As String
For Each aString In hStream.Lines
  ...
Next

Enumere un flux ligne par ligne.