Visual Basic - Ayuda Con Horarios (IF anidado)

Hola estoy realizando un programa de control de asistencia a lo que me piden que el usuario administrador de alguna forma pueda marcar cuando es fin desemana o feriado a final del mes para los calculos por otro lado y sin sber que ahcer se me ocurrio:

Poner un If :

'La función se llama es_Fin_de_Semana si es falso realize calculos
If es_Fin_de_Semana(Fecha) = False Then
'los calculos funcionan fino no les pongan atencion
exthora = Mid(labeltotal.Caption, 1, 2)
extmin = Mid(labeltotal.Caption, 4, 5)
extmind = extmin / 60
extmind = Mid(extmind, 1, 3)
exthora = exthora + extmind
' desde aqui radica el problema cuano le pregunto si exthora es mayor a 8 me realiza todo ahora lo que nunca pasa es que si es fin de semana me haga los otros calculos si pueden ayudarme lo agradeceria
If exthora > 8 Then
exthora = exthora - 8
labelsuplem.Caption = exthora
Dim totalfix As Double
totalfix = Val(labeltotal3.Caption) - Val(labelsuplem.Caption)
labeltotalv.Caption = totalfix
Else
If exthora < 8 And es_Fin_de_Semana(Fecha) = True Then
labelextras.Caption = Format(dDiferencia, "HH:mm")
Else
totalfix = Val(labeltotal3.Caption) - Val(labelsuplem.Caption)
labeltotalv.Caption = Format(dDiferencia, "HH:mm")

End If
End If
End If

En cuanto a los fines de semana si Format(fecha,"w")=1 es domingo y si es igual a 7 es sabado.
Los feriados se pueden poner en una tabla y comparar con ella la fecha.