public class Test public Shared Sub Main Dim strMessage As String Select Case Now.DayOfWeek Case DayOfWeek.Monday strMessage = "Have a nice week." Case DayOfWeek.Friday strMessage = "Have a nice weekend." Case Else strMessage = "Welcome back!" End Select Console.WriteLine(strMessage) End Sub End class
Have a nice weekend.