Imports System Module MyModule Sub Main() If (Double.IsNegativeInfinity("0.0000000000000001")) Then Console.WriteLine("Negative infinity.") End If End SubEnd Module