Imports System

​

Public Module Module1

​

    Public Enum MyDayOfWeek

        Saturday = 1

        Monday = 2

        Tuesday = 3

        Wednesday = 4

        Thursday = 5

        Friday = 6

        Sunday = 7

    End Enum

​

    Public Sub Main()

        Dim Day_Name_Val = Convert.ToInt32([Enum].Parse(GetType(MyDayOfWeek), DateTime.Now.DayOfWeek.ToString()))

        Console.WriteLine(Day_Name_Val)

    End Sub

End Module

​