Sub RachiDate()
Dim ZEDAYIDIDIT As Date, F1WASMYFIRSTLOVE
ZEDAYIDIDIT = Date + 123
F1WASMYFIRSTLOVE = MsgBox(ZEDAYIDIDIT, vbCritical, "I LOVE DATE")
If F1WASMYFIRSTLOVE Then
MsgBox Format(ZEDAYIDIDIT, "ddd") & vbCrLf & Format(ZEDAYIDIDIT, "ddd dd mmmm yyyy")
End If
End Sub