Imports System

Public Module Module1

    Public Sub Main()

        dim n   

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

        n = console.readline()

        if n > 0 then

            console.Write("es un número positivo")

        elseif  n < 0 then

            console.write("es un número negativo")

          end if

​

    End Sub

End Module