Imports System, Microsoft.VisualBasic
Dim packageWeight, shippingPrice as Single
Dim priorityOrExpress as Char
Console.Write("Enter Package Weight (In Ounces): ")
packageWeight = Console.ReadLine()
Console.Write("Priority (P) or Express (E): ")
priorityOrExpress = Console.ReadLine()
If priorityOrExpress = "P" then
shippingPrice = 7.95 + (packageWeight - 16)*.3
ElseIf packageWeight > 8 and priorityOrExpress = "P" then
ElseIf packageWeight <= 8 and priorityOrExpress = "P" then
ElseIf priorityOrExpress = "E" then
If packageWeight > 16 and
shippingPrice = Math.Ceiling(packageWeight/16)*10.95
ElseIf packageWeight <= 16 and priorityOrExpress = "E" then
Console.WriteLine("Shipping Price: " & FormatCurrency(shippingPrice))