Visual Basic para Aplicaciones - dias habiles

estoy haciendo una base de datos en access utilizando VBA, en una parte del programa se requiere que apartir de una fecha calcule otra , solo sumando un numero especifico de dias, pero necesito que le sume los dias sin contar sabados y domingos como se puede hacer eso?

Dim vbDia As Integer
Dim vbSuma As Long
Dim vbDias As Long

Private Sub Command1_Click()
vbDias = Abs(TxtFechaDesde - TxtFechaHasta)
vbFecha = TxtFechaDesde
vbSuma = 0
For i = 0 To vbDias - 1
vbDia = Weekday(Day(vbFecha))
If vbDia <> 7 And vbDia <> 1 Then ' 7=Sabado , 1=Domingo
vbSuma = vbSuma + 1
End If
vbFecha = vbFecha + 1
Next i
Label1 = vbSuma
Label1.Refresh
End Sub

ESPERO Y TE SIRVA ESTE EJEMPLO, SALU2
BYE

He subido a MegaUpload una librería con ejemplos para Access 2003/2007 y Excel 2003/2007, permite hacer cálculos con días hábiles y otros, sirve para 21 paises, este es el link
http://www.megaupload.com/?d=2RU458VA si no funciona descargar de este otro link http://depositfiles.com/files/5hyiarl2a