Detener cronómetro en un minuto.

Hola amigos. Tengo un Userform con cronómetro, pero quisiera se detenga en un minuto.
Ojala y me ayuden mofificando su código, es el siguiente:

Dim Parar As Boolean
Dim Tempo As Date

Sub Cronometro()

While Parar = False

txt_Cronometro = Format(Tempo, "hh:mm:ss")

Tempo = Tempo + TimeValue("00:00:01")

Application.Wait Now + TimeValue("00:00:01")

DoEvents

Wend

End Sub

Sub Encerrar()

cmd_Iniciar.Enabled = True

Parar = True

End Sub

Sub Iniciar()

Parar = False

Cronometro

End Sub

Private Sub cmd_Iniciar_Click()

cmd_Iniciar.Enabled = False

cmd_Zerar.Enabled = False

Call Iniciar

End Sub

Private Sub cmd_Parar_Click()

Tempo = Tempo

cmd_Zerar.Enabled = True

Call Encerrar

End Sub

Private Sub cmd_Zerar_Click()
Tempo = 0

txt_Cronometro = "00:00:00"

Call Encerrar

End Sub