I tried your code. However, I still can't get it to reset the focus back to the NewDate field.
Private Sub NewDate_AfterUpdate()
Dim VBAnsw As String
If Format(Me.NewDate, "ddd") = "Sat" Then
VBAnsw = MsgBox("You have a chosen to deliver on a Saturday! Are you sure?", vbYesNo, "Scheduling...