Imports System

Public Module Module1

    Public Sub Main()

        Dim one as integer

        Dim two as integer

        Console.WriteLine("Choose any positive integer")

        one = Console.Readline() 

        Console.WriteLine("Choose another positive integer")

        two = Console.Readline()

        Console.WriteLine()

        If one < two then

            Console.WriteLine(one)

            Do until one = two

                one = one + 1

                Console.WriteLine(one)

            Loop

        End if

        If one > two then

            Console.WriteLine(one)

            Do until one = two

                one = one - 1

                Console.WriteLine(one)

            Loop

        End if

    End Sub

End Module