Double.Epsilon
public class Test public Shared Sub Main Dim D As Double D = 5 Console.WriteLine(D.Epsilon) End Sub End class