UDF VBA para obtener el número de semana del mes respectivo de una fecha

Código

Function NumSemMes(Fecha As Date, DiaInicio As Integer) As Integer

   NumSemMes = WorksheetFunction.WeekNum(Fecha, DiaInicio) - WorksheetFunction.WeekNum(Fecha - Day(Fecha) + 1, DiaInicio) + 1

End Function

La codificación numérica para el argumento "DiaInicio" (día de inicio de la semana) es el mismo que de la función NUM.DE.SEMANA