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