Fehler beim einlesen einer TXT

[d1ng0d0gt0r]

Hallo zusammen,

Ich hab folgenden Fehler beim einlesen einer Textdatei:

"Input past end of file"

der Code zum einlesen:

c.Filter = "Text Files|*.txt"
c.ShowOpen
If Not c.FileName = "" Then
Dim strtext As string
nFNr = FreeFile
Open c.FileName For Input As #nFNr
strtext = Input(LOF(nFNr), #nFNr)
Close #nFNr

Nochwas: Die Textdatei ist recht groß 50KB
Please Help M.f.G d1ng0