Imports System

​

​

​

Public Module Module1

    Dim name As String

    Dim answer As String

​

    Public Sub Main()

        Console.WriteLine("Hello, humans!")

        Console.WriteLine("How are you?")

        name = Console.ReadLine()

        Console.WriteLine("Hello, " & name & "!")

        If name = "Bahar" Then

            Console.WriteLine("I'm busy")

        Else

            Console.WriteLine("What are you doing?")

        End If

        Console.WriteLine("Are you alright? y/n")

        answer = Console.ReadLine()

        If answer = "n" Then

            Console.WriteLine("Bye!")

        Else 

            For number As Integer = 1 To 10

                Console.WriteLine("Counting to 10.... Number: " & number)

            Next

        Console.WriteLine("We are now finished here, goodbye")

        End If 

    End Sub

End Module