codice:
Function GiorniLavorativi(DataInizio As Date, DataFine As Date) As Integer 
    Dim GiornoSettimana As Integer 
    GiorniLavorativi = 0 
    While DataInizio <= DataFine 
        GiornoSettimana = Format(DataInizio, "w") 
        If (GiornoSettimana <> vbSaturday) And (GiornoSettimana <> vbSunday) Then GiorniLavorativi = GiorniLavorativi + 1 
        DataInizio = DateAdd("d", 1, DataInizio) 
    Wend 
End Function
P.S. vedi se funziona perchè l'ho trovato con google...non mi andava di scriverla,però mi sembra buona!