Al posto di Now, metti la data che ti serve.

Text1.Text = WeekdayName(Weekday(Now), , vbSunday)


Ciao,