Добавляется 0 при чтении содержимого бинарного файла

Sub PutContents()
Dim fileInt As Integer: fileInt = FreeFile
Dim i As Byte
r = 1: c = 1:
dx = 7: ' ширина
r0 = 9: c0 = 9 ' левый верхний угол
Open "f://input.bin" For Binary Access Read As fileInt
Do While Not EOF(fileInt)
    Get fileInt, , i
    Cells(r + r0, c + c0).Value = i
    c = c + 1:
        If c = dx + 1 Then c = 1: r = r + 1
Loop
Close fileNum
End Sub

Sub SpongeBob()
   Dim SquarePants: SquarePants = FreeFile
   Dim Henry() As Byte
   Open "C:\Doc1.docx" For Binary Access Read As SquarePants
   ReDim Henry(1 To LOF(SquarePants))
   Get SquarePants, , Henry
   Close SquarePants
End Sub

Sub PutContents()
Const DX& = 7, R0& = 9, C0& = 9 'ширина, левый верхний угол
Dim fileInt As Integer, n&
  fileInt = FreeFile
  Open "c:\temp\bins.txt" For Binary Access Read As fileInt '"f://input.bin"
  ReDim i(1 To DX, 0 To LOF(fileInt) \ DX) As Byte
  Get fileInt, , i
  n = LOF(fileInt) Mod DX
  Cells(R0, C0).Resize(UBound(i, 2) + 1, DX).Value = WorksheetFunction.Transpose(i)
  Cells(R0 + UBound(i, 2), C0).Offset(, n).Resize(, DX - n).ClearContents
  Close fileInt
End Sub