Public Enum Status As Integer
Unknown = -3
Late = -1
OnTime = 0
Early = 1
End Enum
Public Module Example
Public Sub Main()
Dim status As Status = Status.Early
Dim number = Convert.ChangeType(status, [Enum].GetUnderlyingType(GetType(Status)))
Console.WriteLine("Converted {0} to {1}", status, number)
End Sub
End Module