Hacer un Conteo de Dias

[J_perdomo]

Hola a Todos he estado teniendo problemas con un codigo que en principio me parecía sencillo. (Parece que no tanto para mi xD)

Lo que quiero es Contar los días que han pasado desde una fecha dada en un DateTimePicker hasta otra fecha en otro datetimepicker pero sin contar los días de fin de semana.

Algo Así: si se ingresa como fecha 1: Lunes 25 de Abril y como fecha 2 Domingo 1 de Mayo. Quiero que el conteo diga "5" que son los días de semana correspondientes a esa semana.

He hecho esto:
Dim finde, daycont, inicio As Integer
Dim Fecha1, Fecha2 As Integer
Dim Fecha_evaluar As Date
Fecha_evaluar = DateTimePicker1.Value
Fecha1 = DatePart(DateInterval.DayOfYear, DateTimePicker1.Value)
Fecha2 = DatePart(DateInterval.DayOfYear, DateTimePicker2.Value)
Inicio = Weekday(DateTimePicker1.Value)

If Not inicio = 1 Or inicio = 7 Then 'Para que cuente el primer dia si no es Sabado o 'Domingo
daycont = 1
Else
daycont = 0
End If

For i = Fecha1 To Fecha2
Fecha_evaluar = Fecha_evaluar.AddDays(1)
finde = Weekday(Fecha_evaluar)
If Not finde = 1 Or finde = 7 Then
daycont = daycont + 1
End If

Next
TextBox1.Text = CStr(daycont)


Pero Siempre me cuenta todos los días incluyendo fines de semana. Y ya se me acabaron las ideas. ¿Alguien me ayuda?