Sub Main End Sub Public Const HKEY_CURRENT_USER = &H80000001 Public Const REG_SZ As Long = 1 '********************************** REG FUNCTIONS **************************************** Declare Function RegCreateKeyTest Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Declare Function RegSetValueExTest Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long Declare Function RegCloseKeyTest Lib "advapi32.dll" Alias "RegCloseKey" (ByVal hKey As Long) As Long Sub TestSetValue Dim lRetVal As Long Dim hKey As Long Dim sValue As String sValue = "THIS IS A TEST" lRetVal = RegCreateKeyTest(HKEY_CURRENT_USER, "Software\OOo_TEST_KEY" , hKey) lRetVal = RegSetValueExTest(hKey, "OOo_TEST_DATA", 0&, REG_SZ, sValue, Len(sValue)) RegCloseKeyTest(hKey) End Sub