关于VB读取二进制文件时的458错误

海天一色001

很长一段时间都没功夫学习，这个问题也攒了很久了。
主要是自己在编写160个CM之047的注册机时，突然出现了“458”的自动化类型错误：
简述问题出现及自己应对的过程：
由于自己开始接触编程时学习的是QBasic，后来一直用的是VB6来学习编程。
这次编写CM047注册机的过程中感觉VB确实挺不耐用，费劲！
虽然走了不少弯路，好在终于编写完毕，代码见附件。
在生成exe文件前再执行一下，看还有什么问题，结果就出问题了！
在编写过程中出现了458错误，大致意思可能是不支持Get这个指令所谓的自动化类型！

点击“调试”按钮，定位到Get #1, , BKey(i)”这一句，有点懵了！
前面已单步执行了N多次都没错误，按F5运行也N多次了，一直没说这一句出错啊！
调试过程中也出现了其他一些错误，有语法上的，有变量定义上的，有写入位置错误的，根据提示或结果，我都能及时修改过来。
可是这个458错误我却无能为力了，特别是前面运行时正常，后面再运行出错，实在是找不到错误所在。
再者说，get指令应该是VB6内置指令，怎么会不支持了呢？
是我的虚拟机出问题了？生成一个exe文件，执行后弹出错误提示：

换虚拟系统，只装VB6企业版，不行；
再换系统，装VB6精简版，也不行！


敬请各位大神指教！！！

代码如下：
  Open App.Path & "\due.dat" For Binary As #1
  Open App.Path & "\due2222.dat" For Binary As #2
  ReDim BKey(1 To LOF(1))
      For i = 1 To LOF(1)
          Get #1, , BKey(i)
          Put #2, , BKey(i)
      Next i
  Close #1, #2
完整代码见附件：（附件不支持压缩文件了？只能在压缩文件再添加一个后缀名试试）
百度链接：https://pan.baidu.com/s/1NEpyyUefbKcoJvMGG_9OmQ
提取码：p8dk
复制这段内容后打开百度网盘手机App，操作更方便哦

winddyj

楼主这段代码想实现啥功能呢？把A文件按字节读取并写入B文件里吗？
      For i = 1 To LOF(1)
          Get #1, i, j
          Put #2, i, j
      Next i