Restarle dias a una fecha sin tener encuenta sabados ni domingos

[natalyro]

Gracias Avellaneda, la verdad no tuve oportunidad de probarlo, pero ya solucione el problema envio mi codigo por si alguien tiene la misma duda.

Gracias.

Private Sub Cmd_Calcular_Click()
Dim fec1, fec2 As String
Dim Dias, Ciudad, x, x1 As String
Dim pos As Integer

'Cliente = Cbo_Cliente.Text
Ciudad = Text_Ciudad.Text

x = Weekday(Text_Reque, 1)

Select Case Ciudad
Case "Bogota"
Dias = 2
Case "Medellin"
Dias = 2
Case "Cali"
Dias = 2
Case "Cartagena"
Dias = 4
Case "Barranquilla"
Dias = 4
End Select

fec1 = Format(Text_Reque, "dd/mm/yyyy")
Text_Progr.Text = fec1
For pos = 1 To Dias
'MsgBox "posicion " & pos
Select Case x
Case 1
'MsgBox "dia inicial " & x
x1 = "Domingo"
fec2 = DateAdd("d", -2, fec1)
'MsgBox "fecha nueva " & fec2
Case 2
x1 = "Lunes"
fec2 = DateAdd("d", -1, fec1)
Case 3
x1 = "Martes"
fec2 = DateAdd("d", -1, fec1)
Case 4
x1 = "Miercoles"
fec2 = DateAdd("d", -1, fec1)
Case 5
x1 = "Jueves"
fec2 = DateAdd("d", -1, fec1)
Case 6
x1 = "Viernes"
fec2 = DateAdd("d", -1, fec1)
Case 7
x1 = "Sabado"
fec2 = DateAdd("d", -1, fec1)
End Select
x = Weekday(fec2)
fec1 = Format(fec2, "dd/mm/yyyy")
'MsgBox "dia nuevo" & x
Next
'fec1 = Format(Text_Reque, "dd/mm/yyyy")
'Text_Progr.Text = fec1
'fec2 = DateAdd("d", -Dias, fec1)
Text_Salida.Text = fec1


End Sub