Dim sLines() As String
sLines = Split(mIt.Body, vbCrLf)
 
Dim i As Long
For i = 0 To UBound(sLines)
  ' in sLines(i) befindet sich die jeweilige Zeile
  Debug.Print sLines(i)
Next i

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de