Convert value as Integer to Enum

EnumUtils.vb

Imports System.Runtime.CompilerServices

    Module EnumUtils

        <Extension()> _
        Public Function convertEnum(Of TEnum)(this As Integer) As TEnum
            Dim t As TEnum
            If Not t.GetType().IsEnum Then
                Throw New ArgumentException("Enum型以外はダメですよん")
            End If
            Dim values = [Enum].GetValues(GetType(TEnum)).Cast(Of Integer)().ToList
            If values.Contains(this) Then
                Return [Enum].Parse(GetType(TEnum), this)
            Else
                Thorw New ArgumentOutOfRangeException("元の列挙体定義に存在しない値ですよん")
            End If
        End Function
    End Module