سلام علیکم
خواندن سطری یک متن در وهله اول مشکلی نیست و این فقط برای فایل های کم حجم و چند خطی سریع است اما همزمان با افزایش حجم فایل مشکلاتی از قبیل افزایش زمان خواندن را ایجاد میکند
پیشنها بنده این است که داده هایتان را از نوع باینری ذخیره کنید تا در زمان مورد نیاز فقط به رکورد مورد نظر ارجاع داده شوید،
گشودن و خواندن فایل باینری:
Private Sub Command1_Click()
Dim frfle%, rec_dat$
frfle = FreeFile
Open "c:\1.txt" For Binary As frfle
Get #frfle, 100, rec_dat$
MsgBox rec_dat$
Close #frfle
End Sub
موفق باشید