Dim d As Date = Date.todayd = new Date(d.Year, d.Month, 1)Dim count As Integer = 0Do While d.month = Date.Today.Month If d.DayOfWeek > 0 AndAlso d.DayOfWeek < 6 Then count += 1 d = d.AddDays(1)Loopmsgbox(count)