Private Declare Function RegSetValueExByte Lib "advapi32" Alias "RegSetValueExA" _    (ByVal hKey As Long, _     ByVal lpValueName As String, _     ByVal Reserved As Long, _     ByVal dwType As Long, _     szData As Byte, _     ByVal cbData As Long) As LongPublic Function SetValue(ByVal KeyName As String, _                         ByVal ValueName As String, _                         ByVal Value As Variant)    Const eRegValue_Binary = 3    Dim ab()         As Byte    Dim C            As Long    Dim lRet         As Long    Dim ordType      As Long    \'...    If (VarType(Value) = vbArray + vbByte) Then        ab = Value        ordType = eRegValue_Binary        C = UBound(ab) - LBound(ab) - 1                lRet = RegSetValueExByte(hKey, ValueName, 0&, ordType, ab(0), C)    End IfEnd Function