Use the Sign(Decimal) method to determine the sign of a Decimal value and display it to the console.
Class Sample
Public Shared Sub Main()
Dim xDecimal1 As [Decimal] = -7D
Console.WriteLine(xDecimal1)
Console.WriteLine(Test(Math.Sign(xDecimal1)))
End Sub
Public Shared Function Test([compare] As Integer) As [String]
If [compare] = 0 Then
Return "equal to"
ElseIf [compare] < 0 Then
Return "less than"
Else
Return "greater than"
End If
End Function
End Class