Thanks, It worked great. Sometimes the simplest things get me stumped. This site is wonderful for putting me back on track. Just one comment, when I entered the If statement it changed it to the following
=IIf(Time()>#10:00:00 PM#,DateAdd("d",1,Date()),Date())
Just in case someone else...