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, your name is " + Name + ", your favourite color is " + Color + " and you are " & Age & " years old") 

    End Sub

End Module