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

...
Dim A(1 To 10) As Double
Dim B(1 To 10) As Double
Dim C(1 To 10) As Double
Dim D(1 To 10) As Double
     fi% = FreeFile()
    Open "\111.txt" For Input As #fi%
    For i% = 1 To 3
        Input #fi%, A(i%), B(i%), C(i%), D(i%)
    Next i%
    Close #fi%
...

...
Dim A(1 To 1000) As Double
Dim B(1 To 1000) As Double
Dim C(1 To 1000) As Double
Dim D(1 To 1000) As Double
    fi% = FreeFile()
    Open "\111.txt" For Input As #fi%
    For i% = 1 To 1000
        If EOF(fi%) Then Exit For
        Input #fi%, A(i%), B(i%), C(i%), D(i%)
    Next i%
    Close #fi%
...

Private Sub Command1_Click()
    On Error GoTo ErrorHandler
    k = FreeFile()
    Open App.Path + "\" + "out.txt" For Input As #k
    Do
        Input #1, t$
        n = n + 1
    Loop Until EOF(k)
    n = n - 1
    ReDim a#(n), b#(n), c#(n), d#(n)
    Seek (k), 1
    For i = 0 To n
        Input #k, t
        s = Split(t)
        a(i) = s(0): b(i) = s(1): c(i) = s(2): d(i) = s(3)
        Print a(i) & vbTab & b(i) & vbTab & c(i) & vbTab & d(i)
    Next i
    Close #k
    Exit Sub
ErrorHandler:
    MsgBox Error, vbExclamation + vbOKOnly
End Sub

Private Sub Command1_Click()
On Error GoTo ErrorHandler
    k = FreeFile()
    Open App.Path + "\" + "out.txt" For Input As #k
    Do
        Input #1, t$
        n = n + 1
    Loop Until EOF(k)
    n = n - 1
    ReDim a#(n), b#(n), c#(n), d#(n)
    Seek (k), 1
    For i = 0 To n
        Input #k, t
        s = Split(t)
        a(i) = Val(s(0)): b(i) = Val(s(1)): c(i) = Val(s(2)): d(i) = Val(s(3))
        Print a(i) & vbTab & b(i) & vbTab & c(i) & vbTab & d(i)
    Next i
    Close #k
    Exit Sub
ErrorHandler:
    MsgBox Error, vbExclamation + vbOKOnly
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 'одно число занимает не менее 2 символов (считая пробел)
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)
End Sub