[Resolvido]Parcelas pulando sábado e domingo

Precisando de ajuda para solucionar este problema, tenho um código pra gerar parcelas , ele pula de mês em mês , como faço para quando for fim de semana ou feriado ele pular para o próximo dia útil, o código que eu uso é este...
São duas tabelas que eu uso, a de parcela seria um subformulario


Private Sub btParcelas_Click()
           
   Dim db
   Dim rs
   Dim i As Integer
   
       
   Set db = CurrentDb()
   Set rs = db.OpenRecordset("tbl_Parcelas")
   
   For i = 1 To Me.txt_Mov_NParcelas
       rs.AddNew
       rs("MovD_Mov") = Me.txt_Mov_ID
       rs("MovD_Parcela") = i & "/" & Me.txt_Mov_NParcelas
       rs("MovD_Valor") = txt_Mov_Valor / txt_Mov_NParcelas
       rs("MovD_Venc") = DateAdd("m", i - 1, Forms!frm_Movimento!txt_Mov_Vencimento) 'Gera as parcelas de Mês em mês
       rs.Update
   Next
   
   rs.Close
   db.Close
   
   End If
 
End Sub

Boa tarde

Teste

Private Sub btParcelas_Click()
Dim db
Dim rs
Dim i As Integer

Set db = CurrentDb()
Set rs = db.OpenRecordset("tbl_Parcelas")

For i = 1 To Me.txt_Mov_NParcelas
rs.AddNew
rs("MovD_Mov") = Me.txt_Mov_ID
rs("MovD_Parcela") = i & "/" & Me.txt_Mov_NParcelas
rs("MovD_Valor") = txt_Mov_Valor / txt_Mov_NParcelas
rs("MovD_Venc") = DateAdd("m", i - 1, Forms!frm_Movimento!txt_Mov_Vencimento) 'Gera as parcelas de Mês em mês

If Weekday(RS("MovD_Venc")) = 1 Or Weekday(RS("MovD_Venc")) = 7 Then
Do
IncrementaData:
RS("MovD_Venc") = DateAdd("d", 1, RS("MovD_Venc"))
If Weekday(RS("MovD_Venc")) = 1 Or Weekday(RS("MovD_Venc")) = 7 Then
GoTo IncrementaData
Else
Exit Do
End If
Loop
End If

rs.Update
Next

rs.Close
db.Close

End If

End Sub

Os numeros 1 e 7 sao respectivamente domingo e sabado?
Posso fazer isso para 2=segunda????
Obrigado

Claro que pode.

Obrigado, vou tentar adaptar pro meu sisteminha aqui!