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
Console.Writeline("The Volume is")
Console.Writeline(Volume)