'Das sind Referenzvariablen (ohne Objekt)
  Dim TEdiFieldsList As List(Of clsEDI_FileImportMappingClass)
  Dim EdiMapping As List(Of clsEDI_FileImportMappingClass)
 
  For row As Integer = 0 To _lines.Count - 1
       Dim line As String
       line = _lines(row)
 
       Dim Satzart As String = Left(line, 3) 'Verwende substring !!
       Dim Filter As String = line.Substring(3, 2)
 
       'Zuweisung einer Referenz auf die Liste in Profil
       EdiMapping = Profil.getEdiSegCols(Satzart, Filter) '???????
 
       'Zuweisung einer Referenz auf die zurückgegebene Liste
       TEdiFieldsList = MapContentsOfImportedEdiFile(line, EdiMapping) '???? 
 
       'Jede nachträgliche Änderung an der Liste in Profil oder
       'was immer sich in MapContentsOfImportedEdifile noch abspielt
       'wird auch die Liste in EdiFile ändern   
       EdiFile.Add(TEdiFieldsList) 'Referenz auf Liste in MapContent..        
  Next row
 
  'Der Fehler liegt eine Stufe tiefer im Code - eventuell bei der Weiter-
  'verarbeitung des Edimapping-Parameters in MapContents....
  'Dort muß jeweils eine neue Liste erstellt werden (new)
 
  'Das Schlüsselwort New in Deinem Code ist wirkungslos, weil Du das neu 
  'erstellte Listenobjekt danach nicht verwendest, sondern in der nächsten 
  'Zeile eine Referenz auf die zurückgegebene Liste zuweist, und es dadurch 
  'wieder verwirfst.