check if the number is positive or not

  Imports System

Module Program

    Sub Main(args As String())

        Dim a As Integer = 12

        Console.WriteLine("enter the value of a")

        a = Console.ReadLine()

        If (a >= 0) Then

            Console.WriteLine("the number is positive")

        Else

            Console.WriteLine("the number  is negative")

        End If

        Console.ReadKey()

    End Sub

End Module

OUTPUT