Einfache Uhr um eine "EInheit" erweitern, wie?

Sub uhr()
' Variable definieren
Dim anzeige As String
Dim ms As String
Dim i  As Long
Dim zeit As Double
' Schleife ausführen ...
Do
' ms holen
ms = Right(Format(Timer - Int(Timer), ".0"), 2)
' String zusammenbauen
anzeige = Time() & ms
' String in Zelle A1 ausgeben
' Vorher den Zellenwert abfangen um flackern zu unterdrücken
If Cells(1, 1).Value <> anzeige Then
Cells(1, 1).Value = anzeige
End If
DoEvents
' Schleife laufen lassen
Loop Until False
End Sub