Visual Basic para Aplicaciones - contar dias hábiles

hola amigos programadores, estoy de vuelta aca solicitando ayuda, estoy haciendo un sistema en donde tengo que notificar al personal los días de licencia,
por ejemplo en fecha 201/01/2009 le notifico a un personal 14 días hábiles de licencia y necesito que me devuelva la fecha en que se debe presenta a trabajar, sin contar sabados, domingos y feriados. o sea la licencia son días hábiles.- desde ya muchas gracias saludos

Option Explicit

'//By JuanC - Ene. 2009

Sub test()
Dim fIni As Date, fFin As Date
Dim i%, f As Date, iCount%
Dim sFeriados$, sDiaActual$
Dim iDiasLicencia%

'//Días y mes correspondientes a los feriados
sFeriados = "01/01" & _
"01/05,25/05," & _
"20/06" & _
"09/07," & _
"17/08," & _
"11/09," & _
"12/10," & _
"08/12,25/12"

'//Fecha inicial
fIni = "17/01/2009"

'//Total de días de licencia (días hábiles)
iDiasLicencia = 14

For i = 1 To 30
f = fIni + i
If Weekday(f) <> 7 And Weekday(f) <> 1 Then '//No es Sábado ni Domingo...
sDiaActual = Format(Day(f), "00") & "/" & Format(Month(f), "00")
If Not InStr(sFeriados, sDiaActual) > 0 Then '//No es feriado...
iCount = iCount + 1
If iCount = iDiasLicencia Then
fFin = f
GoTo fin
End If
End If
End If
Next

fin:
MsgBox "Fecha de inicio: " & fIni & vbCrLf & _
"Fecha de regreso: " & fFin & vbCrLf & _
"Total días (hábiles): " & iDiasLicencia, vbInformation, "Info"
End Sub

Saludos desde Baires, JuanC