m e As Long
Dim hKey As Long

    e = RegOpenKeyEx(m_hClassKey, m_sSectionKey, 0, KEY_ALL_ACCESS, hKey)
    If e Then
        Err.Raise 26001, App.EXEName &amp; ".cRegistry", "Failed to open key '" &amp;
         m_hClassKey &amp; "',Section: '" &amp; m_sSectionKey &amp; "' for delete access"
    Else
        e = RegDeleteValue(hKey, m_sValueKey)
        If e Then
            Err.Raise 26001, App.EXEName &amp; ".cRegistry", "Failed to delete
             registry Key: '" &amp; m_hClassKey &amp; "',Section: 