ok I did make a change:

If bSuccess = True Then
Call AddRecord
Else
MsgBox "Shift time is wrong!"
Exit Sub
txtStartTime.SetFocus
End If

I put the =true, but know I don't even get the msgbox when the time is wrong. Can you give me an example of the set?

jeffro