Tenho um controle onde digito sempre a data do dia anterior, desde que seja dia útil.

atualmente tenho a função assim: txtdata.Value = Date - 1    porém quando é segunda-feira, ele inseri a data de domingo e deveria ter a data de sexta (que não é data útil de trabalho). As datas devem ser de segunda a sexta-feira.