Imports System

Public Module Module1

    Public Sub Main()

        Dim answer as string

        Console.WriteLine("Hello")

        Console.WriteLine("11234567809876543223456789087543123456789098765432123456789098765432212345678990987654321234560087654321234567890987654321234567890")

        Console.WriteLine("read that number!")

        Console.WriteLine("My name is Thomas")

        Console.WriteLine("I am a professional chess player")

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

        answer = Console.ReadLine()

        Console.WriteLine(" Nice to met you" & answer)

        Console.WriteLine(" What is your favourite chess player?")

        answer = Console.ReadLine()

        Console.WriteLine( answer & " is my favourite player toooooo")

        If answer = "Nacamura" Then 

            Console.WriteLine(Answer & "He is very bad" & " Gon away!!")

        Else 

            Console.WriteLine ("I like" & answer " too!" )

        End If

    End Sub

End Module