'*********************************************************
' TiempoEspera
'
' Esta rutina la he entresacado de la ayuda de Access y la
' pongo aquí por la frecuencia con la que he visto
' preguntar por este tipo de utilidad.
'
' Este procedimiento ejecuta un bucle un determinado lapso
' de tiempo.
'
' Argumentos
'   TiempoEspera: número de segundos que se quiere esperar
'
'
Sub Espera(TiempoEspera As Double)
Dim Comienzo As Double
    
    Comienzo = Timer
    Do While Timer < Comienzo + TiempoEspera
        DoEvents
    Loop

End Sub
'*********************************************************