Public Sub ReadFile(fName As String, column As Integer)
    Dim FileNum As Integer
    Dim sLine As String
    Dim i As Integer
    Dim comp As String
    Dim arrRow() As String
    Dim Line As New SingleLine
 
    i = 1
    FileNum = FreeFile
    On Error GoTo failRead
 
 
        Open fName For Input As #FileNum
 
        While Not EOF(FileNum)
 
            Line Input #FileNum, sLine
            arrRow = Split(sLine, "|")
            Line.Set_row arrRow()
            comp = arrRow(column - 1) & i
            Line.Set_key (comp)
 
            If List.Count > 0 Then
              List(0).Item = Line  'Hier tritt der Fehler auf
            Else
              List.Add Line
            End If
 
            i = i + 1
        Wend
 
failRead:
        If (Err.Number <> 0) Then
            MsgBox Err.Description, vbMsgBoxHelpButton, "Fehler", Err.HelpFile, _
              Err.HelpContext
        End If
 
        Close #FileNum
 
End Sub