Imports System

Public Module Module1

    Public Sub Main()

        Dim name As String

        Dim age As Integer 

        Dim days As Integer

        Dim hours As Integer

        Dim mins As Integer

        Dim secs As Integer

        Console.WriteLine("Entre your name")

        name = Console.readLine()

        Console.writeLine("Entre your age")

        age = Console.readLine()

        days= 365 * age

        hours = days * 24

        mins = hours * 60

        secs = mins * 60

        Console.WriteLine("Hi " & name & " You are " & days & " days old“)

            Console.WriteLine("You are " & hours & " hours old“)

                Console.WriteLine(" You are " & mins & " minutes old“)

​

    End Sub

End Module