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.