For x = 30 To 0 Step -1

    Me.Text1 = str(x)

    If Me.Text1 <= 5 Then Debug.Print PlaySoundFileB("C:\WINDOWS\Media\Windows Ding.wav")

    

    PauseTime = 1    ' Set duration.

    Start = Timer    ' Set start time.

    Do While Timer < Start + PauseTime

        DoEvents    ' Yield to other processes.

    Loop

    

Next x

 Debug.Print PlaySoundFileB("C:\WINDOWS\Media\tada.wav")