YOu could try something like this...
Dim firsttime As Variant
Dim secondtime As Variant
firsttime = Timer
secondtime = Timer
Do Until secondtime = firsttime + 5
secondtime = Timer
Loop
Timer is the event that displays the number of seconds after midnight, in case you were wondering. THis code sets firsttime to the current number of seconds after midnight, then loops secondtime being set to Timer until it equals the firsttime + 5, or five seconds. Then it will stop the loop.
Let me know if that helps,
Vassago