Public Enum Days Sunday Monday Tuesday Wednesday Thursday Friday Saturday End Enum
Dim Dias as Days msgbox(Dias.Friday)