Как считать данные из txt файла, из определенной строки,столбца? - VB

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

                    Листинг программы
                
i=0
Do Until EOF(2)
  Line Input #2, mytext
  Dannie(i)=mytext
  i=i+1
loop

Наверняка необязательно заполнять массив целиком, чтобы в последствии воспользоваться только (к примеру) значением 27й строки... Вариант сделать так

                    Листинг программы
                
i=0
Do Until EOF(2)
  Line Input #2, mytext
  if i=27 then Dannie(i)=mytext
  i=i+1
loop

Но что-то подсказывает мне, что этот вариант уж больно тормозной и нубский))

Решение задачи: «Как считать данные из txt файла, из определенной строки,столбца?»

textual
                            Листинг программы 
                        
Sub Main()  ' заголовок процедуры
 
Dim txtStream As BServy.Fstr  ' описание объекта "текстовый поток"
 
    HomeDir$ = App.Path ' получаем директорию, в которой лежит экзешник (тут было раньше для VBA)
    
    Set txtStream = New BServy.Fstr  ' создаем объект
 
    txtStream.DosMode = True    ' Установка свойства "Разделитель строк" 13,10 
 
    txtStream.fstrOpen HomeDir$ + "\11111111.txt"  ' открываем текстовый поток
    
    Stri$ = txtStream.GetLine(10)   ' читаем сразу 10-ю строку
    
    Stri$ = txtStream.GetLine(5)    ' а теперь - 5-ю
    
    Stri$ = txtStream.GetLine(100) '  а теперь - 100-ю
 
    txtStream.fstrClose       ' закрываем поток
 
    Set txtStream = Nothing  ' уничтожаем объект
 
End Sub