Imports System

Public Module numero

    'Algoritmo que pide un numero y muestra si es positivo, negativo, o cero.

    Public Sub Main()

        Dim numero As integer

        Dim tipo As String=""

            Console.Write("Cual un numero: ")

        numero = Console.ReadLine()

        If numero>0 Then

            tipo = "POSITIVO"       

            Else

            If numero=0 Then

                tipo ="CERO"

            Else

                tipo="NEGATIVO"

            End If

        End If

        Console.WriteLine("El numero es {0}.",tipo)

        Console.ReadLine()

    End Sub

End Module