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 = UBound(ab) - LBound(ab) - 1
                e = RegSetValueExByte(hKey, m_sValueKey, 0&amp;, ordType, ab(0), c)
            Else
          