Imports System

Public Module Module1

    Public Sub Main()

        Dim message as string

        Dim times as integer

        Dim Answer as string

        Console.WriteLine("Entre the message u want to send")

        message = Console.ReadLine()

        Console.Writeline("How mant times you would like to send this messgae?")

        For times = 1 to Console.ReadLine()

        Answer =message

        Console.WriteLine(" "&Answer)

    Next

    End Sub

End Module