Public Enum workDays
Saturday
Sunday = 0
Monday
Tuesday
Wednesday
Thursday
Friday
invalid = -1 End Enum
Public Class Tester Public Shared Sub Main Dim MyDay As WorkDays
MyDay = WorkDays.Saturday If MyDay < workDays.FriDay Then
Console.WriteLine("It's the weekend.Invalid work day!") End If End Sub End Class