Private Sub TextBox1_Change()
TextBox3.Value =format$( Now(),"HH:MM")
End Sub


"Patrick C. Simonds" wrote in message
...
I would like the code below to put the current time (in 24 hour format) in
TextBox3. So how can I modify this so I only get the time and not the date
and have the displayed time in the 24 hour format (18:45 for 6:45pm)

Private Sub TextBox1_Change()
TextBox3.Value = Now()
End Sub