Io sfrutto:
Time= oraFissata

dove oraFissata può essere un'espressione di tipo Date o di tipo String formattata ad orario:

oraFissata = #hh:mm:ss#
oppure
oraFissata = "hh:mm:ss"

Ad esempio aggiungendo questo codice al pulsante fineOra
impunta l'orologio di sistema alla fine dell'ora attuale.

Private Sub fineOra_Click()
Time = TimeSerial(Hour(Time), 59, 58)
End Sub