Precisazione, il 2° mercoledi del mese non è detto sia in settimana Pari... esempio il 2° Mercoledì di Maggio è in settimana 19, che è dispari.
Quindi spiega se vuoi il 2° e 4° mercoledì del mese o se vuoi il Mercoledì della settimana pari, sono estremamente differenti le 2 condizioni.
Il 2° Mercoledì del mese lo ricavi trovando il 1° e sommando 7gg, per trovare il 1° devi trovare il 1° gg del mese, e ricavarne il numero della settimana, e si usa questo
FirstDayInMonth = Fix(DateSerial(Year(TuaData), Month(TuaData), 1))
Trovato quello recuperi il Numero del gg della settimana per ricavare il Mercoledì
FirstDayInMonthWeekNumber=weekDay(FirstDayInMonth ,vbMonday)
Il primo mercoledì(che ha sempre Weekday=3) sarà
FirstWednesdayInMonth= DateAdd("d",FirstDayInMonth ,3-FirstDayInMonthWeekNumber)
Ora per calcolare il 2° sommi 7 per il 4° sommi 21
SecondWednesdayInMonth= DateAdd("d",FirstDayInMonth ,10-FirstDayInMonthWeekNumber)
FourthWednesdayInMonth= DateAdd("d",FirstDayInMonth ,24-FirstDayInMonthWeekNumber)