l'istruzione :
str = Format(Date, "dddd, dd mmmm yyyy")
mi restituisce la data di oggi nel formato che hai richiesto tu....
Ciao