Private Sub txtDate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With txtDate
If Not IsDate(.Text) Or _
InStr(.Text, ":") Or _
.TextLength <> 8 Then
Cancel = True
Beep
.SetFocus
.SelStart = 0
.SelLength = .TextLength
End If
End With
End Sub
Private Sub txtTime_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With txtTime
If Not IsDate(.Text) Or _
InStr(.Text, ":") = False Or _
InStr(.Text, ".") Or _
.TextLength <> 5 Then
Cancel = True
Beep
.SetFocus
.SelStart = 0
.SelLength = .TextLength
End If
End With
End Sub