sub mededelingentonen mededeling="" if month(date)=12 then x="Prettige feestdagen" & vbnewline & "Buone feste" mededeling=mededeling & vbnewline & x mededelingen.innertext=mededeling end sub