Imports System

Public Module Module1

    Public Sub Main()

        Dim selection as Char

        While selection.ToString.ToUpper <> "D"

            Console.WriteLine("Choose your favorite streaming platform:")

            Console.WriteLine("(A) Netflix")

            Console.WriteLine("(B) Hulu")

            Console.WriteLine("(C) Disney+")

            Console.WriteLine("(D) None of the Above")

            Console.WriteLine() 

            selection = Console.ReadLine()

            Select Case selection.ToString.ToUpper

            Case "A" 

                Console.WriteLine("You like watching Netflix!")

            Case "B"

                Console.WriteLine("You like watching Hulu!")

            Case "C"

                Console.WriteLine("You like watching Disney+!")

            Case "D"

                Console.WriteLine("You don't like watching tv.")

​

​

​

            End Select

        end While

        Console.ReadLine()

    End Sub

End Module