Private Sub txtStart_Exit(ByVal Cancel As MSForms.ReturnBoolean) txtStart.Text = Format(CDbl(txtStart.Text), "h:mm") End Sub