txt dosyasından veri alma kod açıklaması hk

[kan-nas]

Sub Button1_Click()
Open "c:\bilgi.txt" For Output As 1
For i = 1 To 10
Print #1, Cells(i, 1), Cells(i, 2)
Next i
Close
End Sub

Yukarıdaki kodla Txt dosyasına verilerş atabiliyorum. Problem yok . Kodlar anlaşılır.

Sub Button2_Click()
aa = 1
Open "c:\Bilgi.txt" For Input As #1
Do While Not EOF(1)
Input #1, kayıt1
If kayıt1 <> "" Then
Input #1, kayıt2
Cells(aa, 1) = kayıt1
Cells(aa, 2) = kayıt2
aa = aa + 1
End If
Loop
Close #1
End Sub

Yukarıdaki kodlara göre Txt den Excele alım işlemini de yaptım ama ezbere oldu. Konuyu anlamak için soruyorum.
Input #1, kayıt1 ne demek
If kayıt1 <> "" Then kayıt1 boşsa Input #1, kayıt2 ne demek.
Yardımın için üstaım.
Kısaca yukarıdaki kodlar ne anlama geliyor. Yardımız için.