Imports System

​

Public Module Module1

​

    Public Sub Main()

        'Inputs 2 numbers,

        'Prints out every second numbers between the 2 numbers, starting with the first number input

        Console.WriteLine("Input a number")

        Dim number1 as integer = Console.ReadLine()

        Console.WriteLine("Input another number")

        Dim number2 as integer = Console.ReadLine()

        For number1 = number1 to number2 step +2

            Console.WriteLine(number1)

        Next

    End Sub

End Module

​