Colocar fecha de vencimiento en días hábiles en forma automatica

hola:

Tengo una consulta estoy haciendo una macro con formulario el cual ingreso datos y se traspasa a una planilla excel, pero presentó la siguiente consulta para ver si me pueden ayudar.

En un textbox tengo una fecha de validación, y en otro tengo la fecha de vencimiento de ésta última es el resultado, ya que debe contar 5 días y que estos sean hábiles ( no considerar feriados, sábados y domingos), y que no sea modificable por el usuario, salvo si cambia la fecha de validación.

Mi consulta es como colocar fecha de vencimiento en forma automática en el formulario y que se traspase a la planilla de excel con estas condiciones:

Por ejemplo:

textbox1+5 días hábiles= textbox2

02-06-2014+5 días hábiles=09-06-2014

Lo que he realizado es esto, pero me arroja error y más encima no distingue los feriados, sábados y domingo.

Private Sub cvencimiento_Change()

Dim fecha_vencimiento As Date

Dim intervalo As Date

intervalo = Format(intervalo, "05-mm-yyyy")

fecha_vencimiento = cvalidación + intervalo

End Sub

pruebaahorasi.zip