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