Problem med overførelse af dato fra userform til worksheet

Hej eksperter

Jeg har en userform, hvor en textbox ved indlæsning af userformen bliver udfyldt med dags dato i formatet dd-mm-yyyy vha.

TextBox1.Text = Format(Now, "dd-mm-yyyy")

Når jeg så bruger følgende:

Range("b4").Value = TextBox1.Text

til overfører datoen fra userformen til regnearket bliver dato formatet lige pludseligt mm-dd-yyyy. B4 har også formatet dd-mm-yyyy.

Hvorfor ændres formatet?

mvh
zoooo