Как сделать задержку в модуле VB?

'waiting
Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Public Const INFINITE = &HFFFFFFFF
Public Const WAIT_FAILED = &HFFFFFFFF
Public Const STILL_ACTIVE = &H103
'
Public Declare Function OpenProcess Lib 'kernel32' (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function WaitForSingleObject Lib 'kernel32' (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Public Declare Function GetExitCodeProcess Lib 'kernel32' (ByVal hProcess As Long, lpExitCode As Long) As Long
Public Declare Function CloseHandle Lib 'kernel32' (ByVal hObject As Long) As Long
'
public sub ArchiveIt(ArcDir as string, fName as string)
Dim ret
Dim id As Long
Dim iex As Long
ret = PKZIP_Path & ' -a -ex ' & ArcDir & ' ' & aname & ' ' & fName
id = Shell(ret, vbHide)
iex = WaitOnProgram(id, True)
If iex Then
MsgBox 'Failed archiving!', vbCritical
End If
end sub
 
Public Function WaitOnProgram(ByVal idProg As Long, Optional ByVal WaitDead As Boolean) As Long
Dim cRead As Long
Dim iexit As Long
Dim hProg As Long
    
    hProg = OpenProcess(PROCESS_ALL_ACCESS, False, idProg)
    If WaitDead Then
        'waiting
        Dim iResult As Long
        iResult = WaitForSingleObject(hProg, INFINITE)
        If iResult = WAIT_FAILED Then WaitOnProgram = -1: Exit Function
        'return
        GetExitCodeProcess hProg, iexit
    Else
        'return
        GetExitCodeProcess hProg, iexit
        'another process enabled
        Do While iexit = STILL_ACTIVE
            DoEvents
            GetExitCodeProcess hProg, iexit
        Loop
    End If
    CloseHandle hProg
    WaitOnProgram = iexit
    
End Function

Private Declare Sub Sleep Lib 'kernel32' (ByVal dwMilliseconds As Long)
 
Sleep 30000 'Sleep 30 seconds

Dim Temp
Temp=Time+30
Do While Time<Temp
  DoEvents
Loop

Function Delay(Pause As Single)
Dim Start As Single
Start = Timer
Do While Timer < Start + Pause
DoEvents
Loop
End Function

Public Sub Sleeping(NumberOfSecond As Double)
Dim FinishTime As Date
FinishTime = DateAdd('s', NumberOfSecond, Now)
Do Until FinishTime <= Now
DoEvents
Loop
End Sub

Private Sub Form_Paint()
Print Time
'выберите, какой вариант вам больше по душе
Delay (5) 'или Sleeping (5)
'и в том, и в другом случае указывается время в секундах
Print Time
End Sub