Imports System

Public Module Module1

    Public Sub Main()

        'declaring answers as words and numbers'

        Dim message as string

        Dim repeats as integer

        Console.WriteLine("Write a nice message")

        message = Console.ReadLine()

        Console.WriteLine("How many times would you like the message displayed?")

        repeats = Console.ReadLine()

        'loop is determined by integer chosen'

        For answer = 1 to repeats

        Console.Writeline (message)

        Console.Writeline (" ")

    Next

    End Sub

End Module