Imports System

Public Module Module1

​

    Public Sub Main()

        Dim Num1, Num2, Sum As Integer

        Console.Write("Please enter length: ")

        Num1 = Console.ReadLine

        Console.Write("Please enter width: ")

        Num2 = Console.ReadLine

        Sum = Num1 * Num2

        Console.WriteLine("The answer is " & Sum)

        Console.Read()

​

    End Sub

End Module