Private Sub Command1_Click()
   Dim nFileLen As Long
   Dim F As Byte
   nFileLen = FileLineCount(App.Path & "Namen.txt")
 
   F = FreeFile
   On Error GoTo FileReadError
   Open App.Path & "Namen.TXT" For Input As #F
      For i = 1 To nFileLen
         frm_Haupt.lst_Namen.List(i - 1) = txt_ReadLine(i)
      Next
   Close #F
   Exit Sub
FileReadError:
   MsgBox "Beim Lesen der Datei: " & App.Path & "Namen.TXT" & _
          "trat ein Fehler auf.", vbExclamation, "Fehler beim Lesen der Datei"
End Sub
 
Prozedur FileLineCount:
 
Public Function FileLineCount(ByVal sFilename As String) As Long
 Dim F As Integer
 Dim LineCount As Long
 Dim sTemp As String
 
 F = FreeFile
 Open sFilename For Input As #F
 While Not EOF(F)
    LineCount = LineCount + 1
    Line Input #F, sTemp
  Wend
  Close #F
 
  FileLineCount = LineCount
End Function
 
Public Function txt_ReadLine(ByVal LineToRead As Long, ByVal nFileNr As Byte) _
  As String
    Static lRow As Long
    Dim sLine As String
    Dim lRow As Long
 
    ' Solange einlesen, bis entweder Dateiende
    ' oder gewünschte Zeilennummer erreicht
    If Not EOF(nFileNr) And lRow < LineToRead Then
      lRow = lRow + 1
      Line Input #nFileNr, sLine
    ElseIf EOF(nFileNr) Then
      lRow = 0
    ElseIf lRow >= LineToRead Then
      lRow = 0
    End If
 
    txt_ReadLine = sLine
End Function