Thanks, I have done it this way...
theDate = DateSerial(!YearVal, 1, 1)
FirstDayInWeek = theDate - Weekday(theDate, vbUseSystemDayOfWeek) + 1
newDate = DateAdd("ww", (!WeekVal - 1), FirstDayInWeek)
Create the first day of the year, then calculate the actual first day of that week, then add 'x' number of weeks to that date....