Imports System
Public Class Program
Public Shared Sub Main()
Dim num As Integer = -7483
Dim result As Integer = Math.Sign(num)
If result < 0 Then
Console.WriteLine("- negative")
ElseIf result > 0 Then
Console.WriteLine("+ positive")
Else
Console.WriteLine("zero")
End If
End Sub
End Class
' run:
'
' - negative
'