insert last business days date

In my macro I was using the below:

Dim td As Date
td = Format(Now() - 1, "DD/MM/YYYY")

This would insert the date for yesterday in the cell.

The user needs me to change this to the previous business day.

I know the formula would be =WORKDAY(TODAY(),-1)  but I cannot figure how to change this in the VBA code

Please help.

Thanks