Imports System

Public Module Module1

    Public Sub Main()

        Dim strTwin as string = "TWIN"

        Dim strFull as string = "FULL"

        Dim strKing as string = "KING"

        Dim strQueen as string = "QUEEN"

        Dim varTotalCost as decimal = 0

        Dim strRead as string = ""

        Console.WriteLine("Choose a bed size: Twin, Full, Queen, King")

        strRead = Console.ReadLine()

        If strRead.ToUpper = strTwin then

            varTotalCost = 39.99

        ElseIf strRead.ToUpper = strFull then

            varTotalCost = 49.99

        ElseIf strRead.ToUpper = strQueen then

            varTotalCost = 49.99

        ElseIf strRead.ToUpper = strKing then

            varTotalCost = 69.99

        Else

            Console.WriteLine("Please try again")

        End If

        If varTotalCost > 0 then

            Console.WriteLine("The current cost is " & varTotalCost)

            Console.WriteLine("Will it be picked up in store? (Y/N)")

            strRead = Console.ReadLine()

            If strRead.ToUpper = "N" then

                varTotalCost = varTotalCost + 5

            ElseIf strRead.ToUpper = "Y" then

                varTotalCost = varTotalCost + 0

            Else

                Console.WriteLine("Please try again")

            End If

            Console.WriteLine("The total cost is " & varTotalCost)

        End If

    End Sub

End Module