Imports System

​

​

Public Module Module1

    Public Sub Main()

        Dim age, days, hours, minutes as Integer 

        Console.Writeline ("What is your age?")

        age = Console.Readline()

        days = age *365

        hours = days * 24

        minutes = hours * 60 

    Console.Writeline("You are " & days & " days old.") 

    Console.Writeline("You are " & hours & " hours old.")

    Console.Writeline("You are " & minutes & " minutes old.")

    End Sub

End Module