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