Dim names() As String = CType([Enum].GetNames(GetType(GPRMCState)), String())
For Each Name1 In names
Console.WriteLine("{0,3:D} 0x{0:X} {1}", [Enum].Parse(GetType(GPRMCState), Name1), Name1)
Next
For Each Name1 In names
Console.WriteLine("{0,3:D} 0x{0:X} {1}", [Enum].Parse(GetType(GPRMCState), Name1), Name1)
Next