DoEvents
Miscellaneous
This instruction allows other applications to process events.
Sub Main DoEvents ' let other apps work End Sub