sub Berechnung()
dim A&,B&
A=Datediff("d","Anfangsdatum","Enddatum")
B=Datediff("d","Anfangsdatum","Feiertag")
if A>=B then Msgbox"Der Feiertag fällt in den Urlaub"
if A<B then Msgbox"Der Feiertag fällt nicht in den Urlaub"
end sub