VB6拆分函数运行时错误9下标超出范围

在第一行，我发现vb6运行时错误9下标超出范围 我试过使用UBound，但不起作用…在windows 7 64位上此错误不会出现…仅在32位上

完整代码（文件范围-加密）：

---

Split返回一个基于0的数组。您正在尝试访问第二个元素（元素1）。由于您遇到此错误，这意味着在此文件中找不到“List1”。

I hex文件和List1位于正确的位置…在64位上，相同的错误仅在vb6调试模式下出现，但编译后运行的程序代码确实可以工作吗？正如我所说，你可以在一个字符上拆分。。。今晚我得打开我的旧电脑并检查一下。看一下

这个文件的大小（和内容）

并检查你正在阅读的文件是否真的存在，以及它是否是你期望的版本

token = Split(thisfile, "List1")(1)

token = RC4(token, Passwd)

Const mypass = "Passwd"

Sub Main()

Dim thisfile As String, token As String, selfpath As String

'The path to itself

selfpath = App.Path & "\" & App.EXEName & ".exe"

'open itself and get all the data in one variable

Open selfpath For Binary As #1

thisfile = Space(LOF(1))

Get #1, , thisfile

Close #1

token = Split(thisfile, "List1")(1)

token = RC4(token, Passwd)