Считывание из файла - VB (59505)

Sub macroc2()
Dim x() As Variant
Open "F:\4.txt" For Input As #2
n = LOF(2)
ReDim x(n)
s = 0
For i = 1 To 20
Input #2, x(i)
s = s + x(n)
Sum = s / n
Cells(8, 3) = Sum
Next i
Close #2
End Sub