Private Sub CommandButton1_Click()
If Not IsDate(Mid(TextBox1, 5)) Then Exit Sub
[A1].NumberFormat = "ddd dd mmm"
[A1] = CDate(Mid(TextBox1, 5))
Unload UserForm1
End Sub
Private Sub SpinButton1_SpinDown()
If IsDate(Mid(TextBox1, 5)) Then _
TextBox1 = Format(CDate(Mid(TextBox1, 5)) - 1, "ddd dd mmm")
End Sub
Private Sub SpinButton1_SpinUp()
If IsDate(Mid(TextBox1, 5)) Then _
TextBox1 = Format(CDate(Mid(TextBox1, 5)) + 1, "ddd dd mmm")
End Sub
Private Sub UserForm_Initialize()
TextBox1 = Format(Now, "ddd dd mmm")
End Sub