Sorry, this TextBox is on a UserForm.

I modified your code thus:

TextBox1.Text = Format(DateValue(TextBox1.Text) + 1, "mmm/dd/yyyy")

And placed it in the code of the "Next" button.

It works very well.

Thank you.

-Minitman


On Thu, 21 Oct 2004 20:58:55 -0500, mudraker
wrote:


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")