Imports System

Public Module Module1

    Public Sub Main()

        Dim weight, length, height, width as Integer                          'Declare Variable

        Dim Volume as String 

        Console.WriteLine("Please state weight: ")                           'Input 

        weight = Console.ReadLine()

        Console.WriteLine("Please state length: ")

        length = Console.ReadLine()

        Console.WriteLine("Please state height: ")

        height = Console.ReadLine()

        Console.WriteLine("Please state width: ")

        width = Console.ReadLine()

        Volume = (length * width * height)

        Console.WriteLine("Volume = " & Volume)

        If weight > 27 And volume > 100000 Then

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

        Elseif volume > 100000 Then

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

        Elseif weight <= 27 and volume <= 100000

            Console.WriteLine("The package is accepted")

        Elseif weight > 27 Then 

            Console.WriteLine("The package is too heavy")

        End if 

    End Sub

End Module