VBA kalenderfunktion - formatering af måned

Jeg har i en userform indsat en kalenderfunktion.

I et label ønsker jeg at datoen vises som "dagens navn, den dd. mmmm åååå".

Jeg har indsat nedenstående som dog ikke giver mig helt det ønskede resultat.

Min måned vises fast som januar. Jeg har en ide om at der er grundet min konvertering af tallet der fremkommer ved Calendar1.Month. Jeg tror at den returnerede værdi er en tekst som min formatering derfor opfatter som 1.

Jeg har forsøgt mig med alle mulige konverteringer

CByte, Asc, Val m.v. men det virker ikke. Hvis jeg ikke anvender Format() men blot anvender Calendar1.Month vises månedens tal rigtig.

Er der en der kan fortælle mig hvorfor det ikke virker og hvordan jeg kan løse det - helst uden brug af en Case funktion - blot fordi det irriterer mig når jeg ikke forstår hvorfor VBA gør som det gør ;-)

Min linje til labelen:
lblDato.Caption = Format(Calendar1.Day, "dddd") & " den, " & Calendar1.Day & ". " & Format(Val(Calendar1.Month), "mmmm") & " " & Calendar1.Year