You have not said were the text box is on a sheet or a dilaog box


for a sheet

this gives todays date
Sheets(1).TextBox1.Text = Format(Now(), "dd/mm/yyyy")

this adds 1 to the date in the text box
Sheets(1).TextBox1.Text = Format(DateValue(Sheets(1). _
TextBox1.Text) + 1, "dd/mm/yyyy"

--
mudrake
-----------------------------------------------------------------------
mudraker's Profile: http://www.excelforum.com/member.php...nfo&userid=247
View this thread: http://www.excelforum.com/showthread.php?threadid=27140