RcTime = CInt(Right(covertime.Value, 2))
LcTime = CInt(Left(covertime.Value, 2))
If RcTime < 0 Or RcTime > 59 Or LcTime < 0 Or LcTime > 24 Or covertime.Value > 2400 Then
MsgBox "Please Enter in a Valid Time (0000-2400)", vbInformation, "Error Message"
covertime.SetFocus
Exit Sub
End...