'" &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_sSectionKey, 0, KEY_QUERY_VALUE, hKey)
    'ApiRaiseIfe

    e = RegQueryValueExLong(hKey, m_sValueKey, 0&amp;, ordType, 0&amp;, cData)
    If e And e &lt;&gt; ERRO