Как в реестр записать бинарный параметр? - VB

Формулировка задачи:

Народ, может кто подскажет, как в реестр записать бинарный параметр? Проблема вот в чем, для записи существует функция RegSetValueEx(), но, например мне необходимо записать в параметр 01,00,00,00, то функция все равно пишет ее как текстовую, тоесть не в раздел HEX в текстовую часть

Решение задачи: «Как в реестр записать бинарный параметр?»

textual
                            Листинг программы 
                        
                            Public Sub SaveSettingByte(ByVal hKey As Long, ByVal strPath As String, ByVal strValueName As String, byData() As Byte)
 
Dim lRegResult As Long
Dim hCurKey As Long
 
lRegResult = RegCreateKey(hKey, strPath, hCurKey)
 
lRegResult = RegSetValueEx(hCurKey, strValueName, 0&, REG_BINARY, byData(0), UBound(byData()) + 1)
 
lRegResult = RegCloseKey(hCurKey)
 
End Sub