Module MyModule Enum Medal As Short Gold Silver Bronze End Enum Sub Main() Dim myMedal As Medal = Medal.Bronze Console.WriteLine("My medal: " & myMedal.ToString)End SubEnd Module My medal: Bronze