Countdown Timer Pause and Resume Button

Hey guys, I'm new so please forgive me for the simple questions that I'm coming up with. You are all helping me out so much and I apprecaite it very much.

I am trying to create a countdown timer my class. I want to give them an amount of time to discuss a certain topic then bring them all back together as a class to discuss what they talked about.

Anyway the start buttons work. I want to insert a button that will pause this (so the we can clarify something if needed) and then when I click start it will continue right where it left off.

Sub CountDown()

If Range("Time") <= 0 Then
GoTo 10

Else
Range("Time") = Range("Wanted")

10:
End If

20:
Dim PauseTime, Start

PauseTime = 1
Start = Timer
Do While Timer < Start + PauseTime
DoEvents

Loop

Range("Time").Value = Range("Time").Value - 1

If Range("Time").Value <= 0 Then

MsgBox "STOP"
Exit Sub
End If

GoTo 20
End Sub

Maybe like this.

Add three buttons from the Control Toolbox, and name them btnStart, btnPause, and btnResume. Then put this code in the Sheet module:

Option Explicit

Dim datNext         As Date

Sub btnStart_Click()
    Range("Time").Value = #12:05:00 AM# ' initial value
    If datNext <> 0 Then Application.OnTime datNext, Me.Name & ".Tick", , False
    datNext = Now + #12:00:01 AM#
    Application.OnTime datNext, Me.Name & ".Tick"
End Sub

Sub btnPause_Click()
    If datNext <> 0 Then
        Application.OnTime datNext, Me.Name & ".Tick", , False
        datNext = 0
    End If
End Sub

Sub btnResume_Click()
    datNext = Now + #12:00:01 AM#
    Application.OnTime datNext, Me.Name & ".Tick"
End Sub

Sub Tick()
    With Range("Time")
        Select Case .Value
            Case 0
                ' do nothing
            Case Is > #12:00:01 AM#
                .Value = .Value - #12:00:01 AM#
                datNext = Now + #12:00:01 AM#
                Application.OnTime datNext, Me.Name & ".Tick"
            Case Else
                .Value = 0
        End Select
    End With
End Sub

Then put this code in the Sheet module:

That's where it MUST go.

I know this is nothing big for a lot of you guys but I just got it counting down minutes and seconds! I'm proud of myself.

If I pause the code it will resume right where it left off. I just need a macro that will pause the code. How do I do it? It can't be that hard.

Sub CountDown()
Dim datNext         As Date
If Range("A_Secs") <= 0 Then

Range("A_Secs") = Range("W_Secs")
Range("A_Mins") = Range("W_Mins")
Else
End If

20:
Dim pausetime, Start

pausetime = 1
Start = Timer
Do While Timer < Start + pausetime
DoEvents

Loop

Range("A_Secs").Value = Range("A_Secs").Value - 1

If Range("A_Secs").Value <= 0 Then

If Range("A_Mins") > 0 Then

Range("A_Mins") = Range("A_Mins") - 1
Range("A_Secs") = Range("A_Secs") + 60
GoTo 20:
Else

MsgBox "STOP"
Exit Sub
End If
End If

GoTo 20
End Sub