如何把put 字节到文件转换字节到变量？

Question

 iFile = FreeFile
        Open PCDestFile For Binary Access Write As iFile
        BytePos = 1
        lBufferLen = 2048
        Do
            lResult = CeReadFile(lCeFileHandle, bytFile(0), _
                    lBufferLen, lBytesRead, 0&)
                    
            If (lResult And (lBytesRead = 0)) Then
                lResult = CeCloseHandle(lCeFileHandle)
                Close iFile
                Exit Do
            Else
                For I = 0 To lBytesRead - 1
                    Put iFile, BytePos + I, bytFile(I)
                Next I
                BytePos = BytePos + lBytesRead
            End If        Loop-------------------------
以上是部分代码，其中这一句是获取字节内容存放到文件里，我要修改这里，修改方式为把读取到的内容给一个变量，这个变量做累加器，请问大虾怎么修改啊？

Answer 1

以上是部分代码，其中“  Put iFile, BytePos + I, bytFile(I)”这一句是获取字节内容存放到文件里，我要修改这里，修改方式为把读取到的内容给一个变量，这个变量做累加器，请问大虾怎么修改啊？-----------------------------
不好意思，补充一下

Answer 2

Dim lSum As Long
...
                For I = 0 To lBytesRead - 1
                    Put iFile, BytePos + I, bytFile(I)
                    lSum = lSum + bytFile(I)
                Next I