."INPUT PAST END OF FİLE hatası

[kan-nas]

Sub Button2_Click()
aa = 1
Open "c:\Bilgi.txt" For Input As #1
Do While Not EOF(1)
Input #1, kayıt1
Input #1, kayıt2
Input #1, kayıt3


Cells(aa, 1) = kayıt1
Cells(aa, 2) = kayıt2
Cells(aa, 3) = kayıt3
aa = aa + 1
Loop
Close #1
End Sub

kayıt1 ve kayıt2 de problem yok ama kayıt3 ü yazdığımda hata veriyor."INPUT PAST END OF FİLE" veriyor.
Yardımlarımız için.

 

[Necdet]

Merhaba,

Aşağıdaki gibi dener misiniz?

Sub Button2_Click()
 
    Dim i       As Long, _
        j       As Integer, _
        Kayit   As String
 
    i = 1
    j = 0
 
    Open "c:\Bilgi.txt" For Input As #1
 
    Do While Not EOF(1)
 
        Input #1, Kayit
        j = j + 1
        If j > 3 Then
            j = 1
            i = i + 1
        End If
        Cells(i, j) = Kayit
    Loop
 
    Close #1
 
    MsgBox "bitti"
 
End Sub