Imports System

Public Module Module1

    Public Sub Main()

        dim base, height, area as double

        Console.WriteLine("Enter your base")

        base = Console.Readline()

        Console.WriteLine("Enter your Height")

        height = Console.ReadLine()

        area = (base * height)

        Console.WriteLine("The Area Of Your Problem" &area)

    End Sub

End Module