 
    If e Then
        Err.Raise 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; "'"
    Else

        Select Case m_eValueType
        Case REG_BINARY
            If (VarType(vValue) = vbArray + vbByte) Then
                Dim ab() As Byte
                ab = vValue
                ordType = REG_BINARY
                c = 