Imports System

Public Module Module1

    Public Sub Main()

        dim numero as integer

        Console.WriteLine("Ingrese un número")

        numero = console.ReadLine()

        IF numero > 0  then

            console.WriteLine("ES POSITIVO")

        Else if numero < 0 then

                console.WriteLine("ES NEGATIVO")

            Else 

                console.WriteLine("ES CERO")

            End If

    End Sub

End Module