Imports System

Public Module Module1

    Public Sub Main()

        Dim answer as string

        Console.WriteLine("Hi!")

        Console.WriteLine("I am lonleyBot")

        Console.WriteLine("You can chat to me if your bored!")

        Console.WriteLine("What's your name?")

        answer = Console.ReadLine()

        Console.WriteLine("Hi " & answer &"") 

        Console.WriteLine("Are you lonely?")

        answer = Console.ReadLine()

        if answer="yes" then

            Console.WriteLine("Well, you can talk to me!")

        else

            Console.WriteLine("oh")

            Console.WriteLine("i dont know why your here then...")

        end if

        Console.WriteLine("Do you like to play games?")

        answer = Console.ReadLine()

        if answer="yes" then

            Console.WriteLine("cool")

        else

            Console.WriteLine("well... you might not enjoy this :(")

        End if

        Console.WriteLine("Let's play a game then!")

        Console.WriteLine("You are walking down a crumbling stone path in the middle of a forest")

        Console.WriteLine("You come to a turning")

        Console.WriteLine("Do you turn Left or right?")

        answer = Console.ReadLine()

        If answer="left" then

            Console.WriteLine("You narrowly avoided a hungry pack of wolves...")

        end if

        if answer="right" then

            Console.WriteLine("You ran into a hungry pack of wolves, you sustained heavy damage and later died...")

        else

                Console.WriteLine("")

        End if

    End Sub

End Module