Cells(1, 1) = CDate(Replace(TextBox1, "-", "/"))
Cells(1, 1) = Format(CDate(Me.TextBox1), "ddd dd mm yyyy")
Private Sub CommandButton1_Click()
If IsDate(TextBox1) Then
Cells(1, 1) = Left(Format(TextBox1, "dddd"), 3) & " " & Format(TextBox1, "dd mmm yyyy")
'ou
'Cells(1, 1) = Format(TextBox1, "ddd dd mmm yyyy")
End If
End Sub