Prova:
codice:
Label5.Caption = Format(Now, "dddd d mmmm yyyy")