       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
Dim vValue As Variant
Dim cData As Long, sData As String, ordType As Long, e As Long
Dim hKey As Long

    e = RegOpenKeyEx(m_hClassKey, m_sS