Private Function Zeile(ByVal File As String, ByVal Zeilennummer As Long) As _
  String
        On Error Resume Next
        Dim fnr As Byte
        Dim zaehler As Long
        fnr = freefile
        zeile = "" : zaehler = 0
        open File for input as #fnr
        Do While Not eof(fnr)
            zaehler = zaehler + 1
        line input #fnr,wert
            If zaehler = Zeilennummer Then
                zeile = wert
                close(fnr)
                Exit Function
            End If
        Loop
        close(fnr)
    End Function