Imports System

Public Module Module1

    Public Sub Main()

        Dim weight, length, width, height, volume as Integer 

        Console.Write("Enter weight ")

        weight = Console.Readline()

        Console.Write("Enter length ")

        length = Console.Readline()

        Console.Write("Enter width ")

        width = Console.Readline()

        Console.Write("Enter height ")

        height = Console.Readline()

        volume = length * width * height 

        Console.Writeline("Volume: "&volume)

        If volume <= 100000 and weight <= 27 then

        Console.Writeline("The package is accepted")

        Else If volume > 100000 and weight > 27 then 

        Console.Writeline("The package is too heavy and too large")

        Else If volume > 100000 then 

        Console.Writeline("The package is too large")

        Else If weight > 27 then

        Console.Writeline("The package is to heavy") 

        End If 

    End Sub

End Module