Чтение строк из файла - VB

Формулировка задачи:

Спасибо всем за ответы на меё сообщение о чтении строк из файла... Все работает. Вот только еще не большой вопрос скажем кинул я эти 6 лейблов на форму, запустил программу - из файла все считали, все ok. А как зделать так, что бы при нажатии на кнопку ok ( к примеру) появлялись следующие шесть строк из того же файла?. А лучше , если можно, как счиать строку, по выбору, опять же, что бы просто label3.caption был просто строкой скажем 5?

Решение задачи: «Чтение строк из файла»

textual
                            Листинг программы 
                        

                            dim Line as string
dim counter as integer '' счетчик строк файла
counter=0
open 'c:    est.txt' for input as #1
do while not eof(1)
counter=counter+1
line input #1, line
loop
close #1
'' Выбор нужной строки и присвоение значения
'' strSelect строка для выбора
if strSelect<>0 then
open 'c:    est.txt' for input as #1
for i= 0 to counter
line input#1, line
if i=strSelect then
label3.Caption=line
end if
next
close #1
end if
                        