No hay una funcion como tal .. pero me di un tiempo para hacerte un ejemplo, solo va a considerar de Lunes a viernes.
Nota.- Tome la fecha actual y le sume 6 días para hacer la prueba, obviamente tu le vas a asignar los valores reales..
Cita: Dim d1 As DateTime = Now()
Dim d2 As DateTime = Now.AddDays(6)
'obtengo la diferencia de días
Dim iDays As Integer = DateDiff(DateInterval.Day, d1, d2)
'Creo una variable de tipo fecha temporal
Dim dTemp As DateTime = d1
Dim iCounter As Integer
'leo los días completos
For i As Integer = 1 To iDays
'checo si es sabado o domingo, si no es así le sumo los días..
If dTemp.DayOfWeek <> DayOfWeek.Saturday And dTemp.DayOfWeek <> DayOfWeek.Sunday Then
iCounter += 1
End If
dTemp = dTemp.AddDays(1)
Next
Response.Write("diferencia es = " & iCounter)
Espero que te sirva..
