I made a formula that works:
Me!Calendar0.Value = DateSerial(YEAR(Date), Month(Date), Day((DatePart("ww",
(Date), vbSaturday) - 1) * 7) + 4)

Once again posting the questions broke the ice of a brain freeze.

Thanks anyway for anyone who is trying to help.
And for anyone with similar problems. I hope this helped.
SC

See the Calendar Tips page at my website
http://www.granite.ab.ca/access/calendars.htm

There could, likely will, be lots of version problems when you go to
distribute the MSCal.OCX..  

One alternative is MonthCalendar is a completely API generated Month
Calendar derived directly from the Common Control DLL.  There are
links to several downloadable calendar forms at my website.   As these
are forms you can also do anything with them you want.

You can also use the calendar form which comes in the Access <insert
your version here> Developers Handbook by Litwin/Getz/Gilbert,
publisher Sybex  www.developershandbook.com.  These books are well
worth spending money.  Every time I open one I save the price of the
book.

Duane Hookum has an awesome and simple calendar in a report.  See the
Calendar Reports sample section at
http://www.access.hookom.net/Samples.htm

Tony