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

i=0
Do Until EOF(2)
  Line Input #2, mytext
  Dannie(i)=mytext
  i=i+1
loop

i=0
Do Until EOF(2)
  Line Input #2, mytext
  if i=27 then Dannie(i)=mytext
  i=i+1
loop

if i=27 then Dannie(i)=mytext: exit do

Sub Main()
 
Dim txtStream As BServy.Fstr
 
    HomeDir$ = ThisWorkbook.Path
    
    Set txtStream = New BServy.Fstr
 
    txtStream.DosMode = True    ' Разделитель строк 13,10
 
    txtStream.fstrOpen HomeDir$ + "\11111111.txt"
    
    Stri$ = txtStream.GetLine(10)
    
    Stri$ = txtStream.GetLine(5)
    
    Stri$ = txtStream.GetLine(100)
 
    txtStream.fstrClose
 
    Set txtStream = Nothing
 
End Sub

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

Dim Sum(1 to 10000) As Currency  ' 10000 эл-тов c гарантией
 
     fi%=FreeFile
 
     Open "Имя_файла" for input As #fi%
 
     p%=0
 
     Do While not EOF(fi%)
 
             Line input #fi%,Stri$
 
             p%=p%+1
 
             Sum(p%)=Val(Stri$)
 
      Loop
 
      close #fi%
 
 
      ' сейчас у тебя в массиве Sum элементы с 1-го по p%-й - суммы из твоего файла.
      ' выполнение займет долю секунды

Dim proshloe(92) as  long
mes$ = "D:\Работа\"
imaold$ = Left(mes$, 10) & Month(Date) - 1 & "." & Year(Date) & ".txt"
i = 0
Open imaold$ For Input As #2                     ' считываем сохраненные данные из *.тхт за прошлый месяц
  Do Until EOF(2)
    Line Input #2, mytext
    proshloe(i) = mytext
    i = i + 1
    If i = 92 Then GoTo 4
  Loop
4 Close #2

   Dim File As String, CF As String 
   'объявим пеpеменнyю для имени файла и его cодеpжимого 
   File = "d:\ca.log" 
   'ycтановим имя файла и пyть 
   Open File For Binary As #1 
   'откpоем файл для чтения 
      CF = Input(FileLen(File), 1)   'загpyзить в пеpеменyю CF вcе cодеpжимое файла 
   Close #1 
МАССИВ= Split(CF,VbNewline)