Sumar días hábiles a una fecha

Pues lo que haria yo es lo siguiente:

Dim FechaInicial as Datetime
Dim FechaFinal as Datetime
Dim DiasHabiles as Integer
Dim stop as Boolean=false
DIm ContadorDias as Integer

I = 1
Do

FechaFinal=DateAdd(DateInterval.Day, I, FechaInicial)
If Weekday(FechaFinal, FirstDayOfWeek.Monday) >=0 AND
Weekday(FechaFinal, FirstDayOfWeek.Monday) <=4 Then
ContadorDias +=1
End If

I+=1

If ContadorDias = DiasHabiles Then
stop=true
End If

Until(stop=true)

Return FechaFinal