My.Computer.Clock.LocalTime.DayOfWeek
MsgBox(DateTimeFormatInfo.CurrentInfo.GetDayName(Date.Today.DayOfWeek)
MsgBox(System.Globalization.CultureInfo.CurrentCulture.DateTimeFormat.DayNames(CInt(System.DateTime.Now.DayOfWeek)))