怎样才可以防止 HttpResponse.BinaryWrite 多写的一个字节？

Question

经典的文件下载功能使用以下 VB 代码：
Response.AddHeader("Content-Disposition", "attachment;filename=" + HttpUtility.UrlEncode(FileName, System.Text.Encoding.UTF8))Dim fs As FileStream = File.OpenRead(PhyPath)
FileBufferSize = fs.Length
Dim FileBuffer(FileBufferSize) As Byte
fs.Read(FileBuffer, 0, FileBufferSize)
Response.BinaryWrite(FileBuffer)
fs.Close()如果比较保存后的文件和原文件，会发现保存后的文件的最后，多出一个字节ASCII 0。如何才能让 HttpResponse.BinaryWrite 不输出多余的字节？

Answer 1

Dim FileBuffer(FileBufferSize - 1) As Byte

Answer 2

是我搞错了。楼上的正确。用了C语言的思维，没有认真查看VB的语法。