Class Sample
Public Shared Sub Main()
Dim numbers() As Decimal = { Decimal.MinValue, -100d, 0d, 300d, Decimal.MaxValue }
Dim result As Boolean
For Each number As Decimal In numbers
result = Convert.ToBoolean(number)
Console.WriteLine("{0,-30} --> {1}", number, result)
Next
End Sub
End Class