Imports System

'Gavin Rowe-Morris 11-30-21'                

Public Module Module1

    Public Sub Main()

        Dim weight As Integer                       'Step 1 Declare Variables'

        Dim shippingType As Single

        Dim shippingPrice As Single

        Console.WriteLine("Please Enter The  weight: ")         'Step 2 User Input'

        weight = Console.ReadLine()

        Console.WriteLine("Please Enter P or E: ")

        shippingType = Console.ReadLine()

        If weight = "4"

            If shippingType = "P"

                If shippingPrice = $5.95

            ElseIf weight = "9"

            If shippingType = "P"

                shippingPrice = $7.95

        If weight = "17"

            If shippingType = "P"

                shippingPrice = $8.25       

        End If              

    End Sub

End Module