*- Say cEntry = "10:23:45" iHours = Val( cEntry ) && Stops at the first non numeric character e.g. : iMinutes = Val( SubStr( cEntry, 4, 2 )) iSeconds = Val( Right( cEntry, 2 )) lValidTime = .T. cErrorHandle = On( "Error" ) On Error lValidTime = .F. tEntered = DateTime( 2000, 1, 1, iHours, iMinutes, iSeconds ) On Error &cErrorHandle. Return lValidTimeOr you can use Try Catch in 8.