Data Type VB.Net Tutorial

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