Imports System

Public Module Module1

    Public Sub Main()

        dim mailtype as char                                                                          'step 1'

        dim packageweight as single 

        dim ShippingPrice as single 

        Console.WriteLine("Please enter mailtype (P) for priority (E) for express")

​

        mailtype = console.readline()                                                                

        Console.WriteLine("Please enter ShippingPrice & Format Currency (shippingprice")

    Shippingprice = Console.ReadLine()

        if mailtype = "P" then 

            if packageweight <=8 then

                Shippingprice = 5.95 

            elseif packageweight <= 16 then 

                shippingprice = 7.95

            elseif packageweight > 16 then 

                shippingprice = 7.95 + 0.30 and  packageweight  > 16

            End If 

        elseif mailtype = "E" then 

            if packageweight  <= 16 then

                shippingprice = 15.95 

            elseif packageweight > 16 then 

                shippingprice = 10.95 

            elseif packageweight >16 then 

                shippingprice = math.Ceiling( packageweight /16 )*10.95

            End If 

        End if 

            console.WriteLine("please enter shippingprice as currency")

    End Sub

End Module