The "Offending" Code

This little snippet is actual code written by an actual person who actually thinks they are an actual developer. Cleaned up for readability and to make it at least somewhat anonymous the "offending" bit is still in there.

If doc.fieldValue(0) <> "" Then
    ' if the field is NOT blank then the
    ' task is complete (increment by 0)
    intNC = intNC + 0
    strLast = strLast & ", " & doc.fieldValue(0)
Else
    ' if the field is blank then the
    ' task isn't complete (Increment by 1)
    intNC = intNC + 1
    strLast = strLast & ", " & doc.fieldValue(0)
End If