Module Module1

    Dim UnknownEnumerator As String = "Unknown"

    Enum Fruit
        Apple
        Banana
        Pear
        Mango
    End Enum

    Sub Main()
        Dim fruitType As Integer = 0
        Console.WriteLine(ConvertEnumToString(Of Fruit)(fruitType))
        Console.ReadKey()
    End Sub

    Public Function ConvertEnumToString(Of T)(value As Integer) As String
        Dim myList As List(Of T) = [Enum].GetValues(GetType(T)).Cast(Of T).ToList()

        For Each item As T In myList
            Dim myInt As Integer = CInt(item)
            Console.WriteLine(item.ToString())
            'If item = DirectCast(value, T) Then Return item.ToString()
        Next

        Return UnknownEnumerator
    End Function

End Module