Как считать числа из файла - VB (171088)

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

Имеется следующий код Visual Basic 6.0:

Private Sub Command1_Click() 
Dim k&, n& 
On Error Resume Next 
k = FreeFile() 
Open "d:\1.txt" For Input As #k 
   n = LOF(k) \ 8 
   ReDim a#(1 To n), b#(1 To n), c#(1 To n), d#(1 To n) 
   n = 0 
   Do 
      n = n + 1 
      Input #k, a(n), b(n), c(n), d(n) 
      If Err Then Exit Do 
   Loop 
Close #k 
ReDim Preserve a(1 To n), b(1 To n), c(1 To n), d(1 To n) 
Print a(1) & vbTab & b(1) & vbTab & c(1) & vbTab & d(1) 
Print a(2) & vbTab & b(2) & vbTab & c(2) & vbTab & d(2) 
End Sub

В строчке шесть \8 - для чего это нужно? Если я \8 удаляю, файл считывается и без этой \8, каков ее смысл?

Решение задачи: «Как считать числа из файла»

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

                            Private Sub Command1_Click()
Dim n&, S$(), SS$()
Dim a#(), b#(), c#(), d#()
n = FreeFile()
Open "d:\1.txt" For Input As #n
  SS = Split(Input(LOF(n), #n), vbCrLf)
Close #n
For n = 0 To UBound(SS)
  ReDim Preserve a(n), b(n), c(n), d(n)
  S = Split(SS(n), vbTab)
  a(n) = S(0)
  b(n) = S(1)
  c(n) = S(2)
  d(n) = S(3)
  Print a(n), b(n), c(n), d(n)
Next n
End Sub
                        