Imports System Module MyModule Sub Main() If (Double.IsPositiveInfinity("999999999999999999999999999999999")) Then Console.WriteLine("Positive infinity.") End If End SubEnd Module