Boa noite!!

A rotina abaixo é um relógio na célula então....
...Como faço para acrescentar ao código abaixo décimos de segundos.
Exemplo:...05:23:43,9
-------------- horas-minutos-segundos-décimos

Dim agora As Date

Sub relogio()

Sheets("Plan1").Range("A1").Value = Format(Time, "hh:mm:ss")
Call Atualiza

End Sub

Sub Atualiza()

agora = Now + TimeValue("00:00:01")
Application.OnTime agora, "relogio"

End Sub

Sub Parar()

Application.OnTime EarliestTime:=agora, Procedure:="relogio", Schedule:=False

End Sub

Se alguém poder me ajudar agradeço...Muito Obrigado!!!!!!!!!!
Att...