Input Date Format

hi, I write a application which have a text box to allow user to input date, I name the text box as Text1. so I write code in lost focus as:

Text1.text = Format(Text1.text, "dd-mm-yyyy")

However, if I input 1-2-2000, then after lost focus, it display "02-01-2000", it treat 1 as month. so later on if I change the text from "02-01-2000" to "02-03-2000", then after lost focus, the text become "03-02-2000", it will look strange as I suppose to change the month field, it should still display "02-03-2000". So what can I do to fix it as it really misleading user. :eek:

Thank RyeBread! but other then using MaskEdit Control, no other way to do it??

Thank again RyeBread, I want to display the date as the format "dd-mm-yyyy", but just the program will treat the first number as month!! I also think that it should be set in control panel, however, there is no option change to "dd-mm-yyyy".

I will use the masked edit control to do it if I don't have any idea later. Thank! :p