Private Sub UserForm_Click()
Dim a$
a = Format(Range("A1").Value + 1, "dddd dd mmmm yyyy")
TextBox3.AutoSize = -1: TextBox2.AutoSize = -1: TextBox1.AutoSize = -1
TextBox3.Text = a: TextBox2.Text = a: TextBox1.Text = a
End Sub
Private Sub UserForm_Initialize()
'[A1] = #1/8/2019# '1 aout 2019 'test 1
[A1] = DateSerial(2019, 8, 1) 'test 2
MsgBox Format([A1], "dddd dd mmmm yyyy")
TextBox1 = CDate(Range("A1").Value2)
TextBox2 = DateValue(Range("A1").Text)
TextBox3.Text = Format(Range("A1").Value, "MM/dd/yyyy")
End Sub