Wenn du die 3.000 Zeile einlesen willst, musst du mit Line Input arbeiten:
Diese Funktion sollte dir weiterhelfen.
Code:
Public Function ReadLine(ByVal sFilename As String, _
ByVal LineToRead As Long) As String
Dim F As Integer
Dim sLine As String
Dim reihe As Long
reihe = 0
FF = FreeFile
Open sFilename For Input As #FF
While Not EOF(FF) And reihe < LineToRead
reihe = reihe + 1
Line Input #FF, sLine
Wend
Close #F
If reihe < LineToRead Then _
sLine = ""
ReadLine = sLine
End Function
Der Aufruf, um die 3000 Zeile aufzurufen wäre folgendermaßen:
Code:
Zeile = ReadLine("Pfad", 3000)
MfG