cnurse wrote: Arnie, try this simple change... mydate = Format(cDate(Me.editHireDate.Text.ToString), "Short Date") Nursey I appreciate the input. I used your idea/code (even took off the "ToString") and still *&*^*& What I'm getting in return is what has caused me to look at options, settings and so on... "Cast from string "01151995" to type 'Date' is not valid. Arnie

Can someone help me out with this. I want to have the user enter a date in the textbox and then on LEAVE validate and convert it to gregorian format. Example: Enter 01011995 in the text box and return 01/01/1995 OR 1195 or 111995 The code below worked until last week when I rebuilt my system; now it no longer works and I can't seem to find a way of making it. dim mydate as string mydate = Format(Me.editHireDate.Text.ToString, "Short Date") Arnie