Yo creo que seria algo asi (no está probado)
Dim fecha1 As DateTime = DateTime.Parse("01/01/2006") ' Fecha de inicio
Dim fecha2 As DateTime = DateTime.Parse("31/12/2006") ' Fecha de fin
Dim dias As Integer = DateDiff(DateInterval.Day, fecha1, fecha2) ' Dias de diferencia entre las dos
dias = (dias / 7) * 2 ' Restamos el número de fines de semana completos entre las dos
If fecha1.DayOfWeek = DayOfWeek.Saturday Then
dias -= 2 ' Si el dia de la fecha de inicio es sabado, se restan sabado y domingo
ElseIf fecha1.DayOfWeek = DayOfWeek.Sunday Then
dias -= 1 ' Si el dia de la fecha de inicio es domingo, se resata el domingo
End If
If fecha2.DayOfWeek = DayOfWeek.Sunday Then
dias -= 2 ' Si el dia de la fecha de fin es domingo, se resta sabado y domingo
ElseIf fecha2.DayOfWeek = DayOfWeek.Saturday Then
dias -= 1 ' Si el dia de la fecha de fin es sabado, se resta el sabado
End If