Option Explicit
 
Private Declare Function WaitMessage Lib "user32" () As Long
 
Enum eTime
    Horas = 3600
    Minutos = 60
    Segundos = 1
End Enum
 
Public Sub Wait(ByVal vToWait&, Optional ByVal ThisWait As eTime = Segundos, Optional ByVal UseAllProc As Boolean = False)
Dim vDateE      As Date
    vDateE = DateAdd("s", vToWait& * (ThisWait + 0), Time)
    Do While vDateE > Time
        Call WaitMessage
        If Not UseAllProc Then DoEvents
    Loop 
End Sub
 
 

 
Option Explicit
 
Private Sub Form_Load()
    Call MsgBox("segundos")
    Call Wait(5, Segundos, False)
    Call MsgBox("minutos")
    Call Wait(1, Minutos, True)
    Call MsgBox("Fin")
End Sub