Imports System

Public Module Module1

    Public Sub Main()

        Dim Height1 As Decimal = 0

        Dim Width1 As Decimal = 0

        Dim Depth1 As decimal = 0

        Const Litres As Integer = 1000

        Dim Volume As Decimal = 0

        Console.Writeline("Please insert Height and press Return")

        Height1 = Console.ReadLine

        Console.Writeline("Please insert Width and press Return")

        Width1 = console.Readline

        Console.Writeline("Please insert Depth and press Return")

        Depth1 = Console.Readline

        Volume = Height1 * Width1 * Depth1

        Volume = Volume / Litres

        Console.Writeline("The Volume is")

        Console.Writeline(Volume)

    End Sub

End Module