Imports System Module HelloWorld Public Enum CreditCard Visa MasterCard AmericanExpress Discover End Enum Public Sub Main() Dim cc as CreditCard cc = CreditCard.Visa Console.WriteLine(cc) End Sub End Module