Private Sub Form_Load()
Dim strTime1 As Date
Dim strTime2 As Date
Dim strTime3 As Date
strTime1 = Time()
strTime2 = "10:00:00 PM"
strTime3 = strTime2 - strTime1
Me.txtTime2 = Format(CDate(strTime3), "hh:nn:ss")
End Sub
You can go from here, set it up on a timer so it updates, you could also...