Private Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias _    "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, _    ByVal Reserved As Long, ByVal lpClass As Long, ByVal dwOptions As Long, _    ByVal samDesired As Long, ByVal lpSecurityAttributes As Long, _    phkResult As Long, lpdwDisposition As Long) As LongPrivate Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As _    LongConst KEY_READ = &H20019  ' ((READ_CONTROL Or KEY_QUERY_VALUE Or                           ' KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not                           ' SYNCHRONIZE))Const REG_OPENED_EXISTING_KEY = &H2' Create a registry key, then close it' Returns True if the key already existed, False if it was createdFunction CreateRegistryKey(ByVal hKey As Long, ByVal KeyName As String) As _    Boolean    Dim handle As Long, disposition As Long        If RegCreateKeyEx(hKey, KeyName, 0, 0, 0, 0, 0, handle, disposition) Then        Err.Raise 1001, , "Unable to create the registry key"    Else        ' Return True if the key already existed.        CreateRegistryKey = (disposition = REG_OPENED_EXISTING_KEY)        ' Close the key.        RegCloseKey handle    End IfEnd Function