Convert Enum value back and forth
Public Enum Status As Integer Late = -1 OnTime = 0 Early = 1 End Enum Public Module Example Public Sub Main() Dim number As Integer = -1 Dim arrived As Status = CType(Status.ToObject(GetType(Status), number), Status) End Sub End Module