Imports System

Public Module Module1

    Public Sub Main()

         Console.WriteLine("Please Enter a number between 1 to 10")

​

        Dim number As Integer = Console.ReadLine

​

        For i = 1 To number

​

        Console.WriteLine("Hello World")

​

        Next

    End Sub

​

​

​

End Module