It would probably help, if you would use a loop witd DoEvents:
In general declerations section write:
Public ExutLoop as boolean

In Form_load:
ExitLoop=False
Do Until ExitLoop=True 'So we can get out of the program
'Your Code
DoEvents
Loop

In Form_Unload:
ExitLoop=True
End

Have Fun,
Marko