= RegQueryValueEx(hCurKey, strValueName, 0&, lValueType, byBuffer(0), lDataBufferSize) : : GetRegByte = byBuffer : : End If : : Else : : 'there is a problem : : End If : : lRegResult = RegCloseKey(hCurKey) : : End Function : : : : Public Function SaveRegByte(ByVal hKey As RegHive, ByVal strPath As String, ByVal strValueName As String, byData() As Byte) : : Dim lRegResult As Long : : Dim hCurKey A