Imports System

Public Module Module1

    Public Sub Main()

        Dim m,n as integer

        Console.Writeline("Input a value")

        m = Console.Readline()

If  m = 0 then

    n = 0

    Console.Writeline("N is = to " & n)

Else If m > 0 then

        n = 1

        Console.Writeline("N is = to " & n)

Else

   n = -1

   Console.Writeline("N is = to " & n)

    End if  

    End Sub

End Module