[Resolvido]Calcular dias úteis

Olá saudações a todos, tenho um formulário Vendaslocacao, que ao preencher data inicial e data final ele mostre no campo total diárias, a quantidade de dias que ficou locado os produtos, já esta funcionando só que desejo que mostre somente os dias úteis. Segue bd para analise

Segue BD. Desde já agradeço a atenção de todos.

Dim Datainicial As Date, DataFinal As Date
Dim di As Date, dias As Integer
Dim diaSemana As Integer, intFeriados As Integer

Datainicial = Me.Datainicial
DataFinal = Me.Datatermino

dias = -1
di = Datainicial
While di <= DataFinal
diaSemana = Weekday(di)
If diaSemana <> 1 And diaSemana <> 7 Then
dias = dias + 1
End If
di = di + 1

Wend


Me.Totaldiaslocado = CInt(dias)



Após pesquisar bastante e com ajuda do professor Aldir do https://accessfacil.com/ consegui encontrar a solução. Segue código