Function IsNear(ByVal dValueToHave As Double, ByVal dValueToCompare As Double, ByVal dNear As Double) As Boolean IsNear = (Abs(dValueToHave - dValueToCompare) <= Abs(dNear)) End Function