Imports System

Public Module Module1

    Public Sub Main()

        'Package Program

        'Hollister      

        '11/17/21

​

        Dim packageWeight As Integer

        Dim packageLength As Integer                          'Declare your variables

        Dim packageWidth As Integer

        Dim packageHeight As Integer

        Dim volume As Integer

        Dim Reply As String

        Console.WriteLine("Please enter the weight of your package")           'input

        packageWeight = Console.ReadLine()

        Console.WriteLine("Please enter your package length")

        packageLength = Console.ReadLine()

        Console.writeLine("Please enter your package width")

        packageWidth = Console.ReadLine()

        Console.WriteLine("Please enter your package height")

        packageHeight = Console.ReadLine()

        volume = packageHeight * packageWidth * packageLength

        If packageWeight > 27 AND Volume > 100000 Then

            Reply = "too heavy and too large"

        Elseif packageWeight > 27 AND Volume <= 100000 Then                  'Calculations

            Reply = "Too heavy"

        Elseif packageWeight <= 27 AND Volume <= 100000 Then

            Reply = "Accepted"

        Elseif volume > 100000 AND packageWeight<= 27 Then

            Reply = "Too Large"

        End if 

        Console.WriteLine(Reply)                    'Output

    End Sub

End Module