Double.Equals Method
Module Example Public Sub Main() ' Initialize two doubles with apparently identical values Dim double1 As Double = .33333 Dim double2 As Double = 1/3 ' Compare them for equality Console.WriteLine(double1.Equals(double2)) ' displays False End Sub End Module