Public Function MapContents(ByVal csvline As String, ByVal DBObjMapping As List( _
  Of clsMeineImportKlasse)) As List(Of clsMeineImportKlasse)
 
        Dim x As New List(Of clsMeineKlasse)
        For Each Feld As clsMeineKlasse In DBObjMapping
            If Feld.USED Then
 
                Dim sField As String
                sField = csvline.Substring(fldVon - 1, fldLength)
 
                If sField.Contains("""") Then
                    sField.Replace("""", String.Empty)
                End If
 
                Feld.INHALT = Trim(sField)
            End If
            x.Add(Feld)
 
        Next
 
        Return x
  End Function
 
Public Function DateiEinlesen(Dateiname As String) As Dictionary (Of Integer, _
  List(Of clsMeineImportKlasse)
  [...]
 
        Dim MeinDictionary As New Dictionary (Of Integer, List(Of _
          clsMeineImportKlasse))
 
        For row As Integer = 0 To _lines.Count - 1
            Dim obj As New List(Of clsMeineKlasse)
            obj = MapContents(line(row), Mapping)
 
            MeinDictionary.Add(row, New List(of clsMeineImportklasse))
            MeinDictionary(row).Add(obj)
 
        Next
 
        Return MeinDictionary
 
End Function

MeinDictionary.Add(row, New List(of clsMeineImportklasse))
MeinDictionary(row).Add(obj)