急VB使用xmlhttp 分块下载大文件解决思路

急！！VB使用xmlhttp 分块下载大文件
我用vb 下载文件 文件小没有问题，文件大就会死掉 ，根据一般下载软件的分块下载，边下载边写文件，怎么下载完成的文件不能打开，下载后的文件比要下载的文件多几个字节，是怎么回事？？

VB code

xmlRequest.open "HEAD", strUrl, True      ' strUrl要下载的文件的地址        xmlRequest.send Null        '等待返回信息        Do Until xmlRequest.readyState = 4            DoEvents        Loop        strFileLen = xmlRequest.getResponseHeader("Content-Length") '获取下载的文件长度6186                Num = strFileLen \ 4096        If Dir(UpdataPath & NewFile) <> "" Then            Kill UpdataPath & NewFile        End If        If Dir(UpdataPath, vbDirectory) = "" Then            MkDir UpdataPath        End If                    FileNum = FreeFile        Open UpdataPath & NewFile For Binary As #FileNum     '二进制打开文件            For i = 0 To Num                xmlRequest.open "GET", strUrl, True                'xmlRequest.setRequestHeader "Type", "application/octet-stream"                If i = Num Then                    xmlRequest.setRequestHeader "Range", "bytes=" & i * 4096 & "-"                Else                    xmlRequest.setRequestHeader "Range", "bytes=" & i * 4096 & "-" & (i + 1) * 4096 - 1                End If                xmlRequest.send Null                '等待返回信息                Do Until xmlRequest.readyState = 4                    DoEvents                Loop                '判断是否还有下载   '              NowFileLen = xmlRequest.getResponseHeader("Content-Length") '                ReDim FileBuff(CLng(NowFileLen) - 1) '                CopyMemory FileBuff(0), xmlRequest.responseBody(0), CLng(NowFileLen)                                Put #FileNum, , xmlRequest.responseBody'                adoStream.Type = adTypeBinary'                adoStream.open'                adoStream.LoadFromFile UpdataPath & NewFile'                adoStream.Position = i * 4096'                adoStream.Write xmlRequest.responseStream'                adoStream.SaveToFile UpdataPath & NewFile, adSaveCreateOverWrite'                adoStream.Close'                                            Next i

VB code

Public xmlRequest As MSXML2.XMLHTTPPublic Event Complete()Public Sub DownProc() '通过“工具”菜单下的“过程属性”菜单项弹出的过程属性对话框中“高级”按钮设置本过程为默认过程。    If xmlRequest.readyState = 4 Then        RaiseEvent Complete    End IfEnd Sub