select-case-no-fallthrough.vb

Module Program
    Sub Main()

        Select Case Today.DayOfWeek
            Case DayOfWeek.Monday:
            Case DayOfWeek.Tuesday:
            Case DayOfWeek.Wednesday:
            Case DayOfWeek.Thursday:
            Case DayOfWeek.Friday:

                Console.WriteLine("Weekday")

            Case DayOfWeek.Saturday:
            Case DayOfWeek.Sunday:

                Console.WriteLine("Weekend")

        End Select

    End Sub
End Module