Как считать числа из файла

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

 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

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