具体使用一看就明白了，来自 CSDN

Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _   (dest As Any, source As Any, ByVal numBytes As Long)

Private Declare Function ExpandEnvironmentStrings Lib "kernel32" Alias "ExpandEnvironmentStringsA" _   (ByVal lpSrc As String, ByVal lpDst As String, ByVal nSize As Long) As Long   '//注册表 API 函数声明Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" _    (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, _    ByVal samDesired As Long, phkResult As Long) As Long

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias _    "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _    ByVal lpReserved As Long, lpType As Long, lpData As Any, _    lpcbData As Long) As Long

Private Declare Function RegSetValueEx Lib "advapi32" Alias "RegSetValueExA" _   (ByVal hKey As Long, ByVal lpValueName As String, _   ByVal Reserved As Long, ByVal dwType As Long, _   ByVal lpbData As Any, ByVal cbData As Long) As Long

Private Declare Function RegCreateKeyEx Lib "advapi32" Alias "RegCreateKeyExA" _   (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, _   ByVal lpClass As String, ByVal dwOptions As Long, _   ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, _   phkResult As Long, lpdwDisposition As Long) As Long

Private Declare Function RegEnumKeyEx Lib "advapi32.dll" Alias "RegEnumKeyExA" _   (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, _   lpcbName As Long, ByVal lpReserved As Long, ByVal lpClass As String, _   lpcbClass As Long, lpftLastWriteTime As FILETIME) As Long

Private Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" _   (ByVal hKey As Long, ByVal dwIndex As Long, _   ByVal lpValueName As String, lpcbValueName As Long, ByVal lpReserved As Long, _   lpType As Long, ByVal lpData As String, lpcbData As Long) As Long

Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" _   (ByVal hKey As Long, ByVal lpSubKey As String) As Long

Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" _   (ByVal hKey As Long, ByVal lpValueName As String) As Long

Private Declare Function RegSetValueExString Lib "advapi32.dll" Alias "RegSetValueExA" _   (ByVal hKey As Long, ByVal ipValueName As String, _   ByVal Reserved As Long, ByVal dwType As Long, _   ByVal lpValue As String, ByVal cbData As Long) As Long

Private Declare Function RegSetValu