Very Fast WString /Object Hash Table (Comments)

[Stanley Durham]

It works, but the reference count still has to be increased. It affects the add time. 
Can't tell the difference.
I made the change and will use it in the future but not worthy of an update.
Thanks.

Code:

        Class Method LongFromObj(o As IUnknown) As Long
            If IsObject(o) Then
                o.AddRef()
                'Method = Peek(Long, VarPtr(o))
                Method = ObjPtr(o)
            End If
        End Method