The error is in the class file itself (cRegistry.cls) at line 339, which calculates the length of binary inserts into the Window registry:
------------------(snip)----------------------
333: Select Case m_eValueType
334: Case REG_BINARY
335: If (VarType(vValue) = vbArray + vbByte) Then
336: Dim ab() As Byte
337: ab = vValue
338: ordType = REG_BINARY
339: c = (UBound(ab) - LBound(ab)) + 1 ' Bugfix by
Morten Egelund Rasmussen (Dec. 11/2003)
340: e = RegSetValueExByte(hKey, m_sValueKey, 0&,
ordType, ab(0), c)
341: Else
342: Err.Raise 26001
343: End If
------------------(snip)----------------------
|
Updated as suggested. |