 to a compatible type before calling
        Case Else
            e = ERROR_INVALID_DATA
            
        End Select
        
        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