Add Pause Button to Stop Watch

[PVA0724]

Hi

I'm trying to add a pause routine to the following code; each part of the code has been assigned to a button for each routine, so what I would need is an extra code with a pause instruction so that it will pause / restart the timer without resetting back to zero.

Thanks in advance for your help.

Dim NextTick As Date, t As Date

Sub StartClock()
t = Time
Call TickTock
End Sub

Private Sub TickTock()
Range("A1").Value = Format(Time - t, "hh:mm:ss")
NextTick = Now + TimeValue("00:00:01")
Application.OnTime NextTick, "TickTock"
End Sub

Sub StopClock()
Application.OnTime earliesttime:=NextTick, procedure:="TickTock", schedule:=False
End Sub

Sub Reset()
Range("A1").Value = 0
End Sub