二进制块读写的问题~~~~大家过来帮忙啊

那里有问题啊~~~~复制出来差一个字节~~~~Private Sub Command1_Click()
openfile
End Sub
Private Sub openfile()
      Dim a() As Byte
      Dim B As Long
      Dim jilu As Long
      Dim yushu As Long
      B = FileLen("c:\temp.bmp")
    jilu = B \ 7000
    yushu = B Mod 7000
    Open "c:\temp.bmp" For Binary Access Read As #1
       ReDim a(1 To 7000) As Byte
       Get #1, , a()
       writefile a, 0
       For i = 1 To jilu - 1
       Get #1, i * 7000, a()
       writefile a, i * 7000
       Next
       ReDim a(yushu - 1)
       Get #1, i * 7000, a()
       writefile a, i * 7000
       Close #1
  MsgBox "源文件长度: " & FileLen("c:\temp.bmp") & "  目标文件长度：" & FileLen("c:\temp2.bmp"), 64, "提示"
  End Sub
Private Sub writefile(a() As Byte, sek As Long)
       Open "c:\temp2.bmp" For Binary Access Read Write As #2
       If sek = 0 Then
        Put #2, , a()
       Else
        Put #2, sek, a()
       End If
       Close #2
  End Sub