You can slow down your loop by using Sleep. To suspend for say 1/10 of a second, use:
Code:
Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Sleep(100)