请教一个sub main的问题

Question

我不想用到Form窗体，代码全部写在模块里，直接用sub main启动，但是有个问题当sub main里的代码执行完就退出程序了，我用了Settime在程序里做了一个循环，但是这个循环根本不起作用，还是执行代码后就直接退出程序了。请问这是为什么呢？
要如何使sub main启动的程序不退出程序？

Answer 1

Option Explicit
Dim a As Class1
Sub main()
    Set a = New Class1
End Sub'Class
Option Explicit
Private Sub Class_Initialize()
    Do
        DoEvents
    Loop
End Sub

Answer 2

Modest大哥您好   感谢您的代码  但是这个代码会让计算机卡死的呀
请问还有没其他好点的方法呢？