Quantos sabados tem o mes

use esta função colega

Function Sabados(data As Date) As Byte

   Dim mes As Byte, i As Byte, Minday As Date, DIASemana As Byte

   mes = Month(data)

   i = 1

   Minday = "01/" & Month(data) & "/" & Year(Date)

   While Month(DateAdd("d", i - 1, Minday)) = mes

      DIASemana = Weekday(DateAdd("d", i - 1, Minday), vbSunday)
      If DIASemana = 7 Then Sabados = Sabados + 1
      i = i + 1

   Wend

para testar coloque o código abaixo em um botão

Private Sub Command1_Click()
MsgBox Sabados("01/07/08") 'Basta alterar o mes, o dia independe de qual seja

End Sub