خواندن از فایل متنی

[park]

سلام
با چه دستوری می توانم یک فایل متنی را باز کنم و خط به خط آن را بخوانم . البته تاجایی که Enter وارد شده است.
سپاس

[CRazYFULL]

کد:

Dim a As String
Open App.Path & "\textfile.txt" For Input As #1
Do Until EOF(1) = True
Line Input #1, a
list1.additem a
Loop
Close #1

برای آشنا شدن بهتره ebook کار با فايلها در ويژوال بيسيک رو بخونی
سرچ کنی زياد پيدا ميکنی