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

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