Imports System

Public Module Module1

    Public Sub Main()

        Dim i As Integer

        i = 0

        Console.WriteLine("Input a number.")

​

        Dim nIn As Integer

        nIn = Console.ReadLine()

​

        For i = i To nIn - 1

            Console.WriteLine(i + 1)

        Next

        Console.WriteLine("Press Any Key to Exit...")

        Console.ReadLine()

    End Sub

End Module