Setting Date Format for TextBox

[wudhus_kid]

I'd like a button to insert today's date into a text box. I have this code thus far:

Private Sub CommandButton1_Click()

TextBox1.Value = Date

End Sub

The problem I am having is that this inserts the date in American Format (mm/dd/yyyy)

Is there any way of setting the format of a text box, like the number category property of a cell?

Many Thanks

Alan Pope

 

[Scott Huish]

How about:

Private Sub CommandButton1_Click()
TextBox1 = Format(Date, "dd/mm/yyyy")
End Sub

 

[wudhus_kid]

Thanks very much - works a treat!