Imports System

Public Module Module1

    Public Sub Main()

        Dim Weight, length, Width, Height, Volume As Integer

        Dim Message As String   'step 1: Declare Variables

        Console.writeline(" Enter The Package Weight: ")  'Step 2: Input 

        Weight = Console.readline()

        Console.writeline(" Enter The Package Length: ")

        Length = Console.readline()

        Console.writeline(" Enter The Package Width: ")

        Width = Console.readline()

        Console.writeline(" Enter The Package Height: ")

        Height = Console.readline()

        If Weight > 27 And Volume > 100000 Then        'Step 3: caculations 

            Message = "To Heavy And To Large"

        ElseIf Volume > 100000 Then

            Message = "Too Large"

        ElseIf Weight > 27 Then

            Message = "Too Heavy"

        Else

            Message = "Succesful"

        End If 

        Console.Writeline(message) 'step 4: output

    End Sub

End Module

​

​

​