Textbox date

[Ian]

I am using a commandbutton to enter the current date in a textbox which is
then used to populate a cell.

1. If I use TextBox1.Value = Date, the format in the textbox is
mm/dd/yyyy but appears as a date formatted dd/mm/yyyy in the cell
2. If I use TextBox1.Value = Format(Date, "dd/mm/yyyy"), the format in
both textbox and cell is dd/mm/yyyy

I need to compare another cell to the current date cell to see if the other
cell is before today (cond format). In case 1 this is fine, but in case 2
all dates appear to be before today.

How can I get the currect date to appear correctly in both locations and
still be able to compare it as a date?

 

[Ian]

The command button and textbox are both on a userform, in case that's
relevant.