Simple timer

I am trying to write a simple timer. I need it to be in the form HH:NN.SS with one exception. I need the second in decimal by 6.

1-6 seconds = .1
6-12 seconds = .2
etc....

Private Sub tmrfirst_Timer()

Date = Time
lblfirst.Caption = Format(Time, "HH:NN.SS")

End Sub

I ca't figure the math I have tried format(time, "HH:NN.(SS / 6)"
but obviosly that won't work as well as several other approaches...any help.....thanks


Josh

lblfirst.Caption = Format(Time, "HH:NN.") & CInt(Format(Time, "SS") / 6)