Imports System

Public Module Module1

    Public Sub Main()

        multiply()

    End Sub

    Sub multiply()

        Dim num1 As Integer

        Console.WriteLine("Enter a number")

        num1 = Console.ReadLine

        Dim num2 As Integer

        Console.WriteLine("Enter second number")

        num2= Console.ReadLine

        Dim total As Integer

        total= num1 * num2

    End Sub

End Module