  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: '" &amp; m_sSectionKey &amp;
             "',Key: '" &amp; m_sValueKey
        Else
            DeleteValue = (e = ERROR_SUCCESS)
        End If
    End If

End Function
Public Property Get Value() As Variant
Di