Imports System

Public Module Module1

    Public Sub Main()

        Dim nro as Integer 'Declaro la variable 

        Console.WriteLine("Ingrese un numero") 

        nro = Console.ReadLine() 'Solicito el numero al usuario

        If nro Mod 2 = 0 Then 'Verificar si par o no por el resto de la division por 2

            Console.WriteLine("El numero ingresado es par")

        Else 

            Console.WriteLine("El numero ingresado es impar")

        End If

    End Sub

End Module