Dim v As Variant
Do
v = InputBox("Enter a date")
If StrPtr(v) = 0 Then Exit Sub
Loop While Not IsDate(v)
Me.TextBox1.Text = Format(v, "dd/mm/yy")


--
Tim Zych
www.higherdata.com
Compare data in worksheets and find differences with Workbook Compare
A free, powerful, flexible Excel utility

"tkraju via OfficeKB.com" <u16627@uwe wrote in message
news:85202c0024350@uwe...
How to tell a Textbox(on a userform) and the user to enter date value in
"dd/mm/yy" format.

--
Message posted via http://www.officekb.com