Is your program beginning to feel groggy because of too much sleep?
Unable to resize and move dialogs during long sleep times?
This may give it a boost. Minimum sleep is 10 miliseconds.

Sub Sleepy(milliseconds As Long) 'a better sleep
  Dim x As Long, Counter As Long
  Counter = (milliseconds \ 11) + 1  'minimum 1 loop (10 milliseconds)
  For x = 1 To Counter
    DIALOG DoEvents
    Sleep 10
End Sub
'Not sure the same thing is done with this?
DIALOG DOEVENTS [[I]sleep&[/I]] [TO [I]count&[/I]]