*TextBox.GotFocus ON readerror _Screen.ActiveForm.ActiveControl.Valid() *TextBox.LostFocus ON readerror *TextBox.Valid IF this.text#DTOC(CTOD(this.text)) WAIT WINDOW TIMEOUT 2.0 ; "The date you entered: "+ this.text+ ", it is not a valid date. Please look at it more closely." ENDIF this.value=CTOD(this.text)Good Luck