For Each dicRow As KeyValuePair(Of Integer, List(Of clsMeineImportKlasse)) In _
  MeinDictionary
   Dim row As Integer : row = dicRow.Key
   Dim objList As List(Of clsMeineImportKlasse) = dicRow.Value
 
 
   Dim sout As String : sout = ""
 
   For x As Integer = 0 To objList.Count - 1
 
      sout = "Zeile in Datei: " & row.ToString & " | " & " | FELD: "  & objList( _
        x).FELD &  " INHALT: " & objList(x).INHALT
      Debug.Print(sout)
 
   Next
Next

__________________


Heute ist nicht mein Tag.