Add a Timer Control to your form and set the timer interval.
In the Timer event for that timer set (refresh) the time
Private Sub Timer1_Timer()
Label1.Caption = Date & " " & Time
End Sub
Private Sub UserForm_Initialize()
Timer1.Interval = 1000
End Sub
Cheers
Shasur
http://www.vbadud.blogspot.com