Code:
Public Sub Pause(Seconds As Long)
    Dim start As Single
    start = Timer
    Do
        If Abs(Timer - start) > Seconds Then Exit Sub
        DoEvents
    Loop
End Sub
pause 1 'looking to se many other ways this can be done so the app don't freeze up while it counts down,looking for something that run's smoothly.