Function Dateiauszug(Dateipfad as String) as String
Dim Dateinummer As Integer
Dateinummer = Freefile
Open Dateipfad For Output As Dateinummer
 
Dim Zeilenleser As String
Line Input #Dateinummer, Zeilenleser
Dateiauszug = Mid(Zeilenleser, 1, 10)
End Function