[Resolvido]Gerar parcela tirando os feriados .

Boa noite! Peço ajuda mais uma vez! Tenho um formulário que gera parcelas diárias tirando o sábado e o domingo.
Só que quando fui adaptar para tirar os feriados não consegui por isso peço ajuda.

Desde já fico agradecido!

Obs: o código abaixo esta funcionando ok! Só preciso que também tire os feriados


Dim sDT As String
Dim DT As Date
Dim freqNum As Long
Dim freq As String
Dim db As DAO.Database, rs As DAO.Recordset
Dim ValorCheque As Currency, i, Fim_semana As Byte

Set db = CurrentDb()
Set rs = db.OpenRecordset("tbl_LancChequeDet") 'Abre Tbl_ContasAreceber

ValorCheque = Me.txtTotalRecebe / Me.QtdeParcelas 'Valor de cada Parcela

For i = 1 To Me.QtdeParcelas 'Insere as Parcela na Tbl_ContasAreceber
rs.AddNew
rs("Cod_Lançamento") = Me.Cod_Lance
rs("NumCheque") = Right("000" & i, 3) & "/" & Right("000" & Me.QtdeParcelas, 3)
rs("ValorCheque") = Me.txtTotalRecebe / Me.QtdeParcelas
'Calcula as datas de Vencto através da função DateAdd()
sDT = DateAdd("d", ((i - 1) + Fim_semana), Me.txtDt_1Parcela)
DT = CDate(sDT) '' Converto a data (string) em data (date)
'' Abaixo, testo se o vencimento cai no sábado ou domingo,
'' se cair, passo para a primeira segunda-feira
If Weekday(DT) = 1 Then
DT = DateAdd("d", 1, DT)
Fim_semana = (Fim_semana + 1)
ElseIf Weekday(DT) = 7 Then
DT = DateAdd("d", 2, DT)
Fim_semana = (Fim_semana + 2)
End If
rs("VencCheque") = DT
rs("DataLanc") = Me.txtDataLanc
rs("Taxa") = Me.txtTaxa

rs.Update
Next
rs.Close
db.Close

Boa noite! Avelino

Esse código me será muito útil. No caso especifico não consegui colocar para gerar automático no meu código de  criar as parcelas.

Obrigado!