How do I delay code execution in Visual Basic (VB6)?

Call ExternalLongRunningProcess
Call DoOtherStuff

Do
     If isSomeCheckCondition() Then Exit Do
     DoEvents
Loop

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sleep 10000

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

While IsStillWaitingForSomething()
    DoEvents
    DoEvents
    Sleep(55)
Wend