How to check for Plus/Minus condition (Macro)

With out using Conditional Formatting, how can I check a cells value if it can fall within a range of +\-.002?
I have this code but it seems to have limitations.

Range("F6").Select
Set Min1 = Range("D6")
Set Max1 = Range("D6")
a = WorksheetFunction.Min(Min1)
b = WorksheetFunction.Max(Max1)

With Range("D6")
    If a < "0" Then
        Range("F6").Value = a + "0.0020" '(Difference of)
        Else
            If b > "0.0020" Then
            Range("F6").Value = b - "0.0020" '(Difference of)
    End If
End If
If Range("D6").Value < "-0.0020" Then
        Range("F6").ClearContents
        Else
            If Range("D6").Value < "0.0020" Then
            Range("F6").ClearContents
    End If
    End If
End With

I am stumbling on how to check the cell to see if it complies to a +\-.002 scenario and if it does, clear the contents of another cell. The above code will clear the cell if the value is positive, but not negative.

All help is appreciated.

Peering into my mind is dangerous!

Here is my scenario, I am attempting to loop thru many rows in two columns to check a condition.
The condition is a tolerance of +\-.002 of the value in cells from two columns, a range. I am taking the average value of the two cells and testing for conformance of +\-.002 from Zero. If the value is out of tolerance the code does something.

Conditional Formatting is limited on what I can do, or maybe its me that's limited?

The .ClearContents can be ignored, I resolved that one. (I feel like such a grown up).

See attached Excel file, and please, criticism is accepted, however I have feelings
Also attached is the macro to run the data. I keep macros in a "personal.xls" file.

File "Template MPC 3061494-1 Profile .006-.004 JNxxxxx A.txt" needs to be renamed to "Template MPC 3061494-1 Profile .006-.004 JNxxxxx A.xls" and file "Module1_OOT_Profiles_A.txt" needs to be renamed to "Module1_OOT_Profiles_A.bas".

I should have zipped both files :shrug:
Both files in a ZIP format.