[Resolvido]Colocar Feriados numa Array

Boa tarde,

Estou a tentar optimizar os cálculos de dias e/ou horas entre datas.

Encontrei um exemplo na net (créditos para o autor) bastante útil.
Queria apenas acrescentar uma Array com os feriados nacionais (Portugueses) no Módulo existente no exemplo, mas não estou a conseguir e peço ajuda para isso.

Anexo o exemplo.

Array:

Código:

   '-----------------------------------------------------------------------------
    'Array(Table) of Holiday Dates
    
    Dim DayArray(16) As Date
    Dim intyear As Integer
    intyear = Year(EndDate)
    
 
    DayArray(0) = Format(("01/01/" & intyear), "mm/dd/yyyy") 'Ano Novo
    DayArray(1) = Format(("04/25/" & intyear), "mm/dd/yyyy") 'Dia da Liberdade
    DayArray(2) = Format(("05/01/" & intyear), "mm/dd/yyyy") 'Dia do Trabalhador
    DayArray(3) = Format(("06/10/" & intyear), "mm/dd/yyyy") 'Dia de Portugal
    DayArray(4) = Format(("06/13/" & intyear), "mm/dd/yyyy") 'Santo António
    DayArray(5) = Format(("06/24/" & intyear), "mm/dd/yyyy") 'São João
    DayArray(6) = Format(("8/15/" & intyear), "mm/dd/yyyy") 'Assunção de Nossa Senhora
    DayArray(7) = Format(("10/05/" & intyear), "mm/dd/yyyy") 'Implantação da República
    DayArray(8) = Format(("11/01/" & intyear), "mm/dd/yyyy") 'Todos os Santos
    DayArray(9) = Format(("12/01/" & intyear), "mm/dd/yyyy") 'Restauração da Independência
    DayArray(10) = Format(("12/08/" & intyear), "mm/dd/yyyy") 'Imaculada Conceição
    DayArray(11) = Format(("12/25/" & intyear), "mm/dd/yyyy") 'Natal
    
    'Feriados Móveis
    DayArray(12) = (Pascoa(intyear))  ' Páscoa
    DayArray(13) = DateAdd("d", -47, (Pascoa(intyear))) 'Carnaval
    DayArray(14) = DateAdd("d", -2, (Pascoa(intyear))) 'Sexta-feira Santa
    DayArray(15) = DateAdd("d", 51, (Pascoa(intyear))) 'Senhora de Matosinhos
    DayArray(16) = DateAdd("d", 60, (Pascoa(intyear))) 'Corpo de Deus
    '---------------------------------------------------------------------------------

Resolvido.