Public Enum Status As Integer
Unknown = -3
Late = -1
OnTime = 0
Early = 1
End Enum
Public Module Example
Public Sub Main()
Dim formats() As String = { "G", "F", "D", "X"}
Dim status As Status = Status.Late
For Each fmt As String In formats
Console.WriteLine(status.ToString(fmt))
Next
End Sub
End Module