Enum description : not getting value by passing enum type

See more:

VB

enum

generation

1 ) it'sEnum With description

Public Enum ActionDrug_list
        <Description("Drug withdrawn")> Drug_withdrawn = 1
        <Description("Drug reduced")> Drug_reduced = 2
        <Description("Drug increased")> Drug_increased = 3
        <Description("Dose not changed")> Dose_not_changed = 4
        <Description("Unknown")> Unknown = 5
        <Description("Not applicable")> Not_applicable = 6
    End Enum 

2) Method For Calling by passing Enum type

Public Function GetActionDrugList(Nodevalue As String, type As ConversionTYpe) As String
       Dim ActionDrug As ActionDrug_list

       Return GetStringvalue(ActionDrug, Nodevalue)

    End Function 

3) Method For getting Descrption value

Private Function GetStringvalue(ByVal EnumName As [Enum], ByVal cmpvalue As String) As String
       Dim items As Array

       Dim Type_ = EnumName.GetType()
       items = System.Enum.GetValues(EnumName.GetType())

       For Index = 0 To items.Length
           Dim description As String = GetEnumDescription(DirectCast(Index, EnumName.GetType()))
       Next Index
       Return ""
   End Function

But here i am uanble To pass Enumname for GetEnumDescription line

Dim description As String = GetEnumDescription(DirectCast(Index, EnumName.GetType()))

it's Show That EnumName is Not the valid type even I triyed Get type from it via

EnumName.GetType()

is there any way to Do that?

What I have tried:

Dim description As String = GetEnumDescription(DirectCast(Index, EnumName.GetType()))