Imports System

Public Module Module1

    Public Sub Main()

        Dim height As integer   

        Dim length As integer

        Dim area As integer

        Console.Writeline("Please enter the height of the rectangle")

        height = Console.Readline()

    End Sub

End Module