这是个器 怎样才能添加一个“继续”按钮？

Dim n '公用变量，记住下一个任务执行的时间 Dim a '开始时间 Dim b '结束时间 Sub 计时() n = Now + TimeValue("0:00:01") If Now() = b Then MsgBox "结束": Call 停止: Exit Sub [c3] = Format(b - Now()， " h:mm:ss") '设置单元格格式 App... Dim n '公用变量，记住下一个任务执行的时间
Dim a '开始时间
Dim b '结束时间

Sub 计时()
n = Now + TimeValue("0:00:01")
If Now() = b Then MsgBox "结束": Call 停止: Exit Sub
[c3] = Format(b - Now()， " h:mm:ss") '设置单元格格式
Application.OnTime n， "计时" '到指定时间后再执行本过程
End Sub

Sub 开始()
[c1] = Format([c1]， "h:mm:ss") '设置单元格格式
a = [c1] '设定时间
b = Now() + a '计算结束时间
[c2] = Format(b， "yyyy-m-d h:mm:ss") '设置单元格格式
Call 计时
End Sub

Sub 停止()
On Error Resume Next
Application.OnTime n， "计时"， ， False '停止任务的执行
End Sub