Imports System          

Public Module Module1

    Public Sub Main()

        Dim Selection as Char 

        While selection <> "d"

            console.WriteLine("Who is your favorite Avenger?")

            Console.WriteLine("{A} Thor")

            Console.WriteLine("{B} Hulk")

            Console.WriteLine("{C} Ironman")

            Console.WriteLine("{D} None of those")

            console.write("choice: ")

            selection=Console.readline()

        Select Case selection.tostring.toUpper

        Case "A"

                console.WriteLine("Thor, God of Lighting, good choice!")

        Case "B"

                console.WriteLine("Hulk! Don't get him angry!")

        Case "C"

                console.WriteLine("I am Ironman...")

        Case is <> "D"

                console.writeline("None of those")

            End Select

        End While

    End Sub

End Module