Boa tarde,

Alterei o seu código para o seguinte:

Public Sub StartTimer()
    Application.OnTime EarliestTime:=Time + TimeValue("00:00:01"), Procedure:="AtualizaRelogio"
End Sub

Public Sub StopTimer()
    Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), Procedure:="AtualizaRelogio", Schedule:=False
End Sub

Public Sub AtualizaRelogio()
    On Error Resume Next
    UserForm1.Label1.Caption = TimeValue(UserForm1.Label1.Caption) + TimeValue("00:00:01")
    Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), Procedure:="AtualizaRelogio"
End Sub

Além disso, coloquei "00:00:00" como "Caption" do "Label1".
Testei e funcionou.

Abraço

Vlw Fera!!