Math.Sign returns a value indicating the sign of a decimal number.
Class Sample Public Shared Sub Main() Dim xByte1 As Byte = 0 Console.WriteLine(Test(Math.Sign(xByte1))) End Sub 'Main 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 'Test End Class 'Sample