Dim datval As Date
dim myDayVal as int
dim startDate as date
datval = "01/01/2010"
myDayVal = datval.DayOfWeek
'check for saturday
if myDayVal = 6 then myDayVal = -1
mydayval = ((mydayval - 5) * -1)
'first fiday
startdate = dateadd(d,mydayval,startdate)
'get friday date
msgbox (dateadd(w,10,startdate)