Imports System

Public Module Module1

    Public Sub Main()

                Dim title As String

        Dim artist As String

        Dim location As String

        Dim hashtag As Char = "#"

​

        Console.WriteLine("please enter the title")

        title = Console.ReadLine()

        Console.WriteLine("please enter the artist")

        artist = Console.ReadLine()

        Console.WriteLine("please enter the location")

        location = Console.ReadLine()

​

        Do While Right(title, 2) <> "##"

            Console.WriteLine("please enter the title")

            title = Console.ReadLine()

            Console.WriteLine("please enter the artist")

            artist = Console.ReadLine()

            Console.WriteLine("please enter the location")

            location = Console.ReadLine()

        Loop

​

        If Right(title, 2) = "##" Then

            Console.WriteLine(title.TrimEnd(hashtag) & artist & location)

        ElseIf Right(title, 2) <> "##" Then

            Console.WriteLine("please use ## at the end of your title")

        End If

​

        Console.ReadLine()

    End Sub

End Module