Visual Basic - Algortimo para Calcular fecha

Buenas, amigos les escribo para ver quien me puede ayudar con un algoritmo que me calcule una fecha dada 5 dias habiles despues, osea me explico.

Tengo dos fecha; la actual y la de vencimiento, el usuario colocara la fecha de retiro de un expediente y el sistema debe calcular la fecha de vencimiento 5 dias despues!!!

Si alguien pudiera hecharme una mano se lo agradecere...

Saludos y Gracias

me parece una pregunta muy ....... ,pero bueno a ayudarte vamos.

FECHA DE VENC = format (dateadd( "d" , 5 ,format( fechaderetiro, "dd-mm-yyyy)) ,"dd-mm-yyyy")

bueno el format es opcional, pero te va mejor asi, y obvio lo puede ajustar para qeu te la muestre como tu quieres.

Puedes usar la funcion WeekDay de forma que si el WeekDay(Fecha) es <>de 1 (domingo) or <> de 7 (sábado) sumas 1 a la fecha, y asi hasta 5

Dim Vencimiento as Date, N as Integer
N=0
Do Until N=5
Vencimiento=cdate(text1)+1
If WeekDay(Vencimiento)<>1 or WeekDay(Vencimiento)<>7 then
N=N+1
Endif
Loop
text2=Vencimiento