Data Types VB.Net

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