Imports System

Public Module Module1

    Public Sub Main()

​

        Dim bread_size As String

        Console.WriteLine("Would you like your bread to be Large, Medium or Small? ")

        bread_size = Console.ReadLine()

        Select Case bread_size

        Case "Large"

            Console.writeline("Bread size chosen : Large")

        Case "Medium"

            Console.writeline("Bread size chosen : Medium")

        Case "Small"

            Console.writeline("Bread size chosen : Small")

        Case Else

            Console.writeline("You choice is not valid.")

            Console.Writeline("You can only choose between Large, Medium and Small")

            Main()

        End Select

    End Sub

End Module