Select Case Date.Now.DayOfWeek
Case DayOfWeek.Sunday
MessageBox.Show("Today is Sunday")
Case DayOfWeek.Monday
MessageBox.Show("Today is Monday")
Case DayOfWeek.Tuesday
MessageBox.Show("Today is Tuesday")
Case DayOfWeek.Wednesday
MessageBox.Show("Today is Wednesday")
Case DayOfWeek.Thursday
MessageBox.Show("Today is Thursday")
Case DayOfWeek.Friday
MessageBox.Show("Today is Friday")
Case DayOfWeek.Saturday
MessageBox.Show("Today is Saturday")
End Select
MessageBox.Show(String.Format("Today is dddd, d MMMM, yyyy", Date.Now))