Vb6 需要帮助无效的外部源错误

我正试图用一个死人程序来处理信息。每次我尝试运行它时，我都会在过程外部得到一个无效的编译错误。我以前从未使用过VB6。我一直在寻找一个解决方案，但我只得到帮助，说它需要在sub或什么，但线程关闭，我一直无法得到他们的解决方案为我工作

我认为问题出在代码的这一特定部分，但我不确定如何将其放入sub或使其工作

End Type

Dim recout As statrec

Open "\STAT\PP\QM1409\MGA013A\" For Random As #1 Len = 150

num.recs = LOF(1) / 150
Print num.recs

For Count = 1 To num.recs

  Get #1, Count, recout

   If recout.mga = "013" Then

---

假设这是唯一的不兼容性是一个很大的范围，但首先要将您现在谈论的代码包装到一个方法中，如puropoix所述。这绝对是一个错误。然而，如果还有更多的问题，我也不会感到惊讶

例如：

---

欢迎来到StackOverflow。不幸的是，你的问题很不清楚。请阅读，我们不应该去其他地方看代码将在6天内到期。包括在这里。否则，正如错误所示，该代码需要位于函数或子函数中。您从何处复制此代码？它是VB语法，但不是来自VB6程序。这是来自某个VBA方法吗？它是一个.BAS文件，我被告知要使用它，它是用VB6.0打开的，所以这正是我所假设的。它是有效的VB6代码。有更好的文件处理方法，但这些方法会起作用。这会导致一个错误，必须有启动窗体或sub-main，并将我带到“项目属性”窗口。我将sub-main设置为启动对象，并且没有其他可用对象。然后，在.bas模块中需要sub-main（）。我不想听起来很刻薄，但你真的需要在VB上读一些书。这是最基本的东西，我突然想到了，因为做这件事的人死了，没有留下很好的记录。我自愿成为自由时间最多的IT人员。编程只是我还没有点击。将sub的名称从

GetStatRecs

更改为

Main

它看起来什么都不做，只是在保存回同一文件时更改字段中的字符。

Public Sub GetStatRecs()
    Dim recout As statrec

    Open "\STAT\PP\QM1409\MGA013A\" For Random As #1 Len = 150

    num.recs = LOF(1) / 150
    Print num.recs

    For Count = 1 To num.recs
        Get #1, Count, recout
        ....
    Next Count

    ....

End Sub