Imports System

Public Module Module1

    Public Sub Main()

        Dim num as integer

        Dim remarks as string

        Console.Write("No.1: ")

        num = console.ReadLine

        if num < 0 then

            remarks = "Negative Number"

        else

            remarks = "Positive Number"

        End if

        Console.write(num & " is a " & remarks)

    End Sub

End Module