VBA - How can I get all Mondays in a month then multiply to working hours?

I'm trying to figure out how to get the total of Mondays in a month then multiply by working hours.

This is my example code it works but it counts wrong output:

  If UCase(val) Like "EVERY MONDAY" Then
   Dim numString As Integer
   Dim strDays() As String
   Dim wordCount As Long

   numString = 2

   strDays = VBA.Split(val, " ")
   wordCount = UBound(strDays)
   strWhEveryDay = ThisWorkbook.Sheets("Input").Cells(X, 4).Value
   strWhEveryDay = strWhEveryDay * var_month
   Debug.Print "Every = " & strWhEveryDay

Explanation:

• It depends on the user if what they like to input in a TEXTBOX. However, the CALCULATION it depends on the date where the user input in TEXTBOX.

• I have Textbox which is the target month where the user input the format of date like this:

  **Jan-2023 or Feb-2023 **

• I have a table like this:

  Place this text in a table start in Column B Row 2:

  **every Monday**
  

  Place this text in a table Column D Row 4:

  **1.2**
  

• All I need is to get all the total of Mondays based on the given month and year. The calculation of the days in a table of "every Monday" once I change the text from "every Monday" to "every Tuesday" so the calculation will adjust or automatically knows where the calculation days start to end:

• Example of expected calculation: every Monday (January 2023 = 5 Days) * 1.2 so, the expected result will be 5.

Note: use Debug.Print to see the result or output

So, using networkdays.intl() as suggested in my comment:

NETWORKDAYS.INTL($A$3,$A$33,"0111111",)

The result shown is 5, which is correct by inspection, for cells A3:A33 the long date format was used.

So multiplying by 1.2 is:

NETWORKDAYS.INTL($A$3,$A$33,"0111111",)*1.2

and 5 * 1.2 = 6

Also, the string "0111111" can be put in cell F5 and referred to so it is easier to edit.

The easiest way I know to recognise any day of the week is the following:

=WEEKDAY(B2,2)

The "2" means that weekdays are counted, starting with "Monday" as 1, "Tuesday" as 2, ...

So, if you want to know if your date is a Monday, you can use this formula:

=IF(WEEKDAY(B2,2)=1,...)

This can easily be translated into VBA, using a standard IF-clause.