Код:
Dim UserOtvet As Variant
Dim Otvet() As Long, i As Long
Dim f As Variant
UserOtvet = Array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
f = FreeFile
Open "c:\1.txt" For Input As #f
ReDim Otvet(0 To LOF(f) \ 2) 'размер с запасом
Do Until EOF(f)
Input #f, Otvet(i)
i = i + 1
Loop
Close #f
ReDim Preserve Otvet(i - 1)
