Using type to convert integer to Enum
Public Enum Status As Integer Late = -1 OnTime = 0 Early = 1 End Enum Public Module Example Public Sub Main() Dim value3 As Integer = 2 Dim status3 As Status = CType(value3, Status) Dim value4 As Integer = CInt(status3) End Sub End Module