If Not e Then
            m_vValue = vValue
        Else
            Err.Raise vbObjectError + 1048 + 26001, App.EXEName &amp; ".cRegistry",
             "Failed to set registry value Key: '" &amp; m_hClassKey &amp; "',Section:
             '" &amp; m_sSectionKey &amp; "',Key: '" &amp; m_sValueKey &amp; "' to value: '" &amp;
             m_vValue &amp; "'"
        End If
        
        'Close the key
        RegCloseKey hKey
    
    End If
    
End Property
Public Function EnumerateValues( _
        ByRe