Visual Basic.NET - Como calcular días hábiles entre dos fechas excluyendo los sábados y domingos. Ayuda ?

Dim Dias As Long

Dim Contador_de_dias As Integer

Dim Fecha_Avanza As Date

Fecha_Avanza = Format(DateTimePicker1.Value, "dd/MM/yyyy")

Dias = DateAndTime.DateDiff(DateInterval.Day, DateTimePicker1.Value, DateTimePicker2.Value) + 1

Contador_de_dias = 0

For I = 1 To Dias

	Fecha_Avanza = DateAndTime.DateAdd(DateInterval.Day, 1, Fecha_Avanza)

	If Format(Fecha_Avanza, "dddd") <> "sábado" And Format(Fecha_Avanza, "dddd") <> "domingo" Then

		Contador_de_dias = Contador_de_dias + 1

	End If

Next

MsgBox("contador de dias sin sábados ni domingos " & Contador_de_dias)

Public Function Calculador_Dias_Entero(inicio As DateTime, final As DateTime, ajuste As Int32) As Int32

    Dim datosSQL As New DatosSQL()

    Dim listaFeriados As IEnumerable(Of DateTime) = datosSQL.DiasFeriadosSQL("select feriados from DiasFeriados")

    Dim dias As Int32 = Convert.ToInt32((final - inicio).TotalDays)

    Dim ajusteInicio As Int32 = 0

    Dim ajusteFinal As Int32 = 0

    If Int(inicio.DayOfWeek) <> 1 Then

        ajusteInicio = Int(inicio.DayOfWeek) - 1

    End If

    If Int(final.DayOfWeek) <> 1 Then

        ajusteFinal = (Int(final.DayOfWeek) - 1)

    End If

    Dim semanas As Int32 = (dias + ajusteInicio - ajusteFinal) / 7

    dias -= semanas * 2

    For Each feriado As DateTime In listaFeriados

        If feriado > inicio AndAlso feriado < final Then

            dias -= 1

        End If

    Next

    Return dias + ajuste

End Function