Dim MyString As String
MyString = "yyyy/mm/dd"
TextBox1.Text = Format(Date, MyString)
or for another date
Mydate = #3/11/2000#
Dim MyString As String
MyString = "dd mmmm yyyy"
TextBox1.Text = Format(Mydate, MyString)
--
Mike
When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.