De que forma(regra) podemos saber quando é feriado nacional. A maioria já sabemos, mas quando cai os feriados de dia variável (sexta feira santa)?

Emilio, tente isto:

 

Public Sub FeriadosMoveis()
  Dim a, b, c, d, e, x, y, Dia, Mes, Ano, Carnaval, Pascoa, CorpusChristi
  Dim i As Integer
  For i = 2001 To 2099 ' preenche a combo com os anos
    Combo1.AddItem i
  Next
  Combo1.Text = Combo1.List(0)
  Ano = Combo1.Text    ' seleciona o ano
  x = 24
  y = 5
  a = Ano Mod 19
  b = Ano Mod 4
  c = Ano Mod 7
  d = (19 * a + x) Mod 30
  e = (2 * b + 4 * c + 6 * d + y) Mod 7
 
  If (d + e) > 9 Then
    Dia = (d + e - 9)
    Mes = 4
  Else
    Dia = (d + e + 22)
    Mes = 3
  End If
 
  If Mes = 4 And Dia = 25 Then
    Dia = 18
  End If
 
  If Mes = 4 And Dia = 25 And d = 18 And a > 10 Then
    Dia = 18
  End If
 
  Pascoa = CDate(Dia & "/" & Mes & "/" & Ano)
  Carnaval = DateAdd("d", -47, Pascoa)
  CorpusChristi = DateAdd("d", 60, Pascoa)

  MsgBox "Caranaval    : " & Carnaval & vbCr & _
                           vbCr & _
         "Pascoa       : " & Pascoa & vbCr & _
                           vbCr & _
         "CorpusChristi: " & CorpusChristi
End Sub