二进制文件，Get和Put语句也可以读写多个字节

问题: 我使用get和put制作了一个文件分割器，但由于是读一个字节写一个字节所以效率非常的低，请问vb有块状读取二进制文件的方法吗？
水平: 高手(月神)

Get和Put语句也可以读写多个字节，可以把每次读写的内容放在一个字节变量数组中，以提高程序速度。例如：
　　Dim DSX() As Byte '为字节数组，用来存储读写内容
　　Dim ReadFileNo,WriteFileNo As Integer
　　'读写文件号
　　Const Unit = 100000　'读写块的大小
　　Open SourceFileName For Binary Access Read As 1
　　WriteFileNo = FreeFile
　　Open TargetFileName For Binary Access Write As WriteFileNo
　　ReDim DSX(Unit) As Byte　'设置存储字节数组的大小
　　Get #ReadFileNo,100,DSX()
　　Put #WriteFileNo,1,DSX()
　　Close WriteFileNo,ReadFileNo