Public Function pfZeileEinlesen(ByVal strDateiname As String, ByVal lngZeilenNr _
  As Long) As String
  Dim F As Integer
  Dim strZeile As String
  Dim lngZeile As Long
 
  lngZeile = 0
 
  ' Existiert die Datei ?
  If Dir$(strDateiname) <> "" Then
    ' Datei zum Lesen öffnen
    F = FreeFile
    Open strDateiname For Input As #F
 
    ' Solange einlesen, bis entweder Dateiende oder gewünschte Zeilennummer 
    ' erreicht
    While Not EOF(F) And lngZeile < lngZeilenNr
      lngZeile = lngZeile + 1
      Line Input #F, strZeile
    Wend
    Close #F
  End If
 
  ' Dateiende wurde frühzeitig erreicht, oder Datei war nicht vorhanden
  If lngZeile < lngZeilenNr Then
    strZeile = ""
  End If
 
  pfZeileEinlesen = strZeile
End Function