Public Function ZeileLesen(ZeilenNr As Long, DateiPfad As String) As String 
Dim DateiNr As Integer 
Dim Zeile As String 
Dim ZeilenNr2 As Long 
 
DateiNr = FreeFile 
Open DateiPfad For Input As #DateiNr 
Do Until EOF(DateiNr) 
Line Input #DateiNr, Zeile 
ZeilenNr2 = ZeilenNr2 + 1 
 
If ZeilenNr2 = ZeilenNr Then 
ZeileLesen = Zeile 
[color=red]Close #DateiNr[/color]
Exit Function 
End If 
Loop 
Close #DateiNr 
End Function