Imports System, Microsoft.VisualBasic
Dim packageWeight As Single
Dim shippingOption As String
Console.WriteLine("Enter the package weight in ounces: ")
packageWeight = Console.ReadLine()
Console.WriteLine("Enter the shipping option, (P/p/Priority/priority) for Priority or (E/e/Express/express) for Express shipping: ")
shippingOption = Console.ReadLine()
If shippingOption = "P" Or shippingOption = "p" Or shippingOption = "Priority" Or shippingOption = "priority" Then
If packageWeight <= 8 Then
ElseIf packageWeight > 8 And packageWeight <= 16 Then
ElseIf packageWeight > 16 Then
totalPrice = 7.95 + (packageWeight - 16) * 0.3
ElseIf shippingOption = "E" Or shippingOption = "e" Or shippingOption = "Express" Or shippingOption = "express" Then
If packageWeight <= 16 Then
ElseIf packageWeight > 16 Then
totalPrice = Math.Ceiling(packageWeight/16) * (10.95)
Console.WriteLine(FormatCurrency(totalPrice))