Hola coleguis aquí os dejo el código para insertar la hora del sistema, tan sólo necesitais un textbox y un timer, ya me contais.
Option Explicit
Dim tiempo As String
Private Sub Form_Load()
Timer1.Interval = (Hour(Now))
Text1.Text = ""
End Sub
Private Sub Timer1_Timer()
tiempo = Format(Int(Hour(Now)) Mod 24, "00") & ":" & _
Format(Int(Minute(Now)) Mod 60, "00") & ":" & _
Format(Int(Second(Now)) Mod 60, "00")
Text1.Text = tiempo
End Sub
