Imports System

Public Module Module1

    Public Sub Main()

        'Declaring Number1 and Number2 as Integer;

        Dim Number1 as Integer

        Dim Number2 as Integer

        Dim Name as String

        Dim answer as Integer

        Console.WriteLine("What is your first name?")

        Name = Console.ReadLine()

        Console.Writeline("What is your first number?")

        Number1=Console.Readline()

        Console.WriteLine("What is your second number?")

        Number2=Console.ReadLine()

        Answer = Number1 * Number2

        Console.WriteLine("Your name is "&Name &" and your numbers are "&Number1 &" and "&Number2 &".")

        Console.WriteLine("Your answer is "&Number1 &" * "&Number2 &" which equals to "&Answer &".")

    End Sub

End Module