DetectorHumano = DetectorHumano + 1
   If DetectorHumano > val(Text3.Text) Then
 
 

 
'
 '   /////////////////////////////////////////////////////////////
 '   // Autor:   BlackZeroX ( Ortega Avila Miguel Angel )       //
 '   //                                                         //
 '   // Web:     http://InfrAngeluX.Sytes.Net/                  //
 '   //                                                         //
 '   //    |-> Pueden Distribuir Este codigo siempre y cuando   //
 '   // no se eliminen los creditos originales de este codigo   //
 '   // No importando que sea modificado/editado o engrandecido //
 '   // o achicado, si es en base a este codigo                 //
 '   /////////////////////////////////////////////////////////////
 
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