Due Dates Skipping Weekends

I have a combo box that when selected autofills a due date box. I forgot
that I needed to skip weekends and only count business day. For example if
you choose standard it adds 2 days to the date but I need it to skip
weekends. Any help would be greatly appreciated.

Private Sub YourComboName_AfterUpdate()
Dim intDays As Integer
Select Case Me.YourComboName
Case "Standard"
intDays = 2
Case "Sensitive"
intDays = 5
Case Else
intDays = 10
End Select
Me.YourDateTxtbox = DateAdd("d", intDays, Date)
End Sub