Hi Y'all I solved the Acces to word issues and moving on to my next step.   I am trying to return a date by providing a startdate, numberofdays and return a network date.  I am following the video from Richard but in his video he return a number based on two dates.  I am building a milestone chart and have set number of days to do a task.  for exsample task A stats on 2023-02-01 and you have 10 days to deliver what date will it return

Public Function MyEndDate(startdate As Date, DaysforTask As Long) As Date
  Dim S As Date, D As Long
  D = DaysforTask
  S = startdate
  MsgBox S & " - " & D
  While D <> 0
    If Weekday(S) > 1 And Weekday(S) < 7 Then MyEndDate = MyEndDate + 1
    MsgBox MyEndDate
    D = D - 1
    MsgBox MyEndDate
  Wend
End Function

this returns 12:00 what did I miss?

V/r
Juan