Imports System

Public Module Module1

    Public Sub Main()

        ' My first program  

        Dim Height as Integer

        Dim Length As Integer

        Dim Depth As Integer

        Dim Volume As Decimal

        Const Litres As Integer = 1000

        Console.WriteLine("Enter Height (cm)")

        Height = Console.ReadLine()

        Console.WriteLine("Enter Length (cm)")

        Length = Console.ReadLine()

        Console.WriteLine("Enter Depth (cm)")

        Depth = Console.ReadLine()

        Volume = (Height * Length * Depth ) / Litres

        Console.WriteLine("Volume of Aquarium = " & Volume & " Litres")

    End Sub

End Module