Compare Double values with difference
Module Example Public Sub Main() Dim double1 As Double = .33333 Dim double2 As Double = 1/3 Dim difference As Double = Math.Abs(double1 * .0001) If Math.Abs(double1 - double2) <= difference Then Console.WriteLine("double1 and double2 are equal.") Else Console.WriteLine("double1 and double2 are unequal.") End If End Sub End Module