Statements VB.Net Tutorial

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.