Imports System

​

    Public Module Module1

    Public Sub Main()   

        dim packageWeight, shippingPrice As Single                                                      'Declare variables

        dim shippingOption As Char

        dim numPounds As Integer

        Console.WriteLine("Enter package weight: ")

        packageWeight = Console.ReadLine()

        Console.WriteLine("Would you like to ship (P)riority or (E)xpress: " )                          'get user input

            shippingOption = Console.ReadLine()

            numPounds = Math.Ceiling(packageWeight/16)

        If shippingOption = "P" Then

            If packageWeight < 8 Then

                shippingPrice = 5.95

                Else If packageWeight > 8 And packageWeight <= 16 Then

                    shippingPrice = 7.95                                                                'calculations

                Else shippingPrice = 7.95 + (packageWeight-16)*0.30

            End If  

        End If

            If shippingOption = "E" Then 

                If packageWeight <= 16 Then 

                    shippingPrice = 15.95

                Else shippingPrice = numPounds*10.95

                End If

            End If

    End Sub

End Module