Imports System

Public Module Module1

    Public Sub Main()

        Dim Name As String

        Dim Color As String

        Dim Age As String

        Console.WriteLine("What is your favourite color?")

        Color=Console.Readline()

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

        Name=Console.Readline()

        Console.WriteLine("How old are you?")

        Age=Console.Readline()

        Console.Writeline("Thanks for answering my questions")

        Console.Writeline("your name is " + Name)

        Console.Writeline("you are " & Age & " Years old")

        Console.Writeline("and your favourite color is " + Color)

    End Sub

End Module