I have worked out how to do it:
If Weekday(DateChased) = vbThursday Then
dtedate2ndchase = DateAdd("d", 4, [DateChased])
Else
If Weekday(DateChased) = vbFriday Then
dtedate2ndchase = DateAdd("d", 3, [DateChased])
Else
dtedate2ndchase = DateAdd("d", 2...