Visual Basic - do... loop

Private Sub pausa()

   Dim comenzar

   Dim controlar

   comenzar = Timer

   Do Until controlar >= comenzar + 1.5

      controlar = Timer

      DoEvents

   Loop

End Sub

Private Sub pausa()

   Dim comenzar

   Dim controlar

   comenzar = Timer  ' primero da el valor a comenzar ..... ahora no se que valor ya viene de otra parte  pero supongamos n segundos

   Do Until controlar >= comenzar + 1.5  ' hasta q controlar sea mayor o igual  a comenzar +1.5 quizas entiendo podria ser Un segundo y me dio

      controlar = Timer va actualizando el valor controlar para manejar la pausa.

      DoEvents ' do events es como esperar.

   Loop ' vuelvo a vlisdar para ya salgo 

End Sub