Probleme de macro

Bonjour,

Je souhaite utiliser ce code pour un chrono, or il se bloque à ce niveau " Lbl_CHRONO.Caption = Format(CDate(DateAdd("S", 1, CDate(Lbl_CHRONO.Caption))), "HH:NN:SS")"

Pourriez vous me donner une solution.

Option Explicit
Dim bPause As Boolean 'Pause
Dim bStop As Boolean ' Fin
Private Sub Cmd_Go_Click()
'-* Déclaration
Dim dDepart As Double
Dim dValue As Double
'-* init
bStop = False
bPause = False
Encore:
dValue = 1
dDepart = Timer
'-* Boucle
Do While Timer < dDepart + dValue
If (bPause = True) Or (bStop = True) Then GoTo Fin
DoEvents
Loop
'-* Mise à jour du label

Lbl_CHRONO.Caption = Format(CDate(DateAdd("S", 1, CDate(Lbl_CHRONO.Caption))), "HH:NN:SS")

GoTo Encore

Fin:

If bStop Then Lbl_CHRONO.Caption = "00:00:00"

End Sub
Private Sub Cmd_Pause_Click()

'-* Init
bPause = True

End Sub
Private Sub Cmd_stop_Click()

'-* Fin du chrono et init
bStop = True

End Sub

Merci

A+

Pascal