Module Module1
Sub Main()
Dim zero As Single = 0
Dim Infinity As Single = 1 / zero
Console.WriteLine(Double.IsInfinity(Infinity))
Console.WriteLine(Double.IsPositiveInfinity(Infinity))
Console.WriteLine(Double.IsNegativeInfinity(Infinity))
End Sub
End Module
' run:
'
' True
' True
' False