Imports System

Public Module Module1

    Public Sub Main()

        Dim time as integer

        Dim message as string

        Dim i as integer

        Console.writeline("How many times would you like to display?")

        time=console.ReadLine()

        Console.writeline("What message would you like to display?")

        message=console.readline()

        For i= 1 to time

        Console.writeline(message)

    Next

    End Sub

End Module