请教这个哪有有关问题 新手 多谢

请问这个哪有问题 新手 谢谢
Const HKEY_LOCAL_MACHINE = &H80000002
Const REG_DWORD = 4
Private Declare Function RegSetValueEx 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
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
'过程
Private Sub SetKeyDwordValue(ByVal Key As String, ByVal SubKey As String, ByVal KeyValue_DWORD As Long)
Dim KeyID As Long
KeyStatus = RegCreateKey(HKEY_LOCAL_MACHINE, Key, KeyID)
KeyStatus = RegCreateKey(HKEY_LOCAL_MACHINE, Key, KeyID)
KeyStatus = RegSetValueEx(KeyID, SubKey, 0&, REG_DWORD, KeyValue_DWORD, LenB(KeyValue_DWORD))
KeyStatus = RegCloseKey(KeyID)
End Sub

Private Sub btn_test_Click()
  Call SetKeyDwordValue("SYSTEM\ControlSet001\Control\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}\0001", "networkaddress", "12345148E1EB") '修改mac物理地址
End Sub


问题触发btn_test按纽提示 “类型不匹配” 请问什么错误原因 在线谢谢

------解决方案--------------------
ok 搞定了。现在没有乱码。

VBScript code

Const HKEY_LOCAL_MACHINE = &H80000002
Const REG_SZ = 1
Private Declare Function RegSetValueEx 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
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
'?程
Private Sub SetKeyDwordValue(ByVal Key As String, ByVal SubKey As String, ByVal KeyValue_DWORD As String)
Dim KeyID             As Long
Dim KeyStatus             As Long

KeyStatus = RegCreateKey(HKEY_LOCAL_MACHINE, Key, KeyID)
RegSetValueEx KeyID, SubKey, 0&, REG_SZ, ByVal KeyValue_DWORD, Len(KeyValue_DWORD)

KeyStatus = RegCloseKey(KeyID)
End Sub

Private Sub btn_test_Click()
     Call SetKeyDwordValue("SYSTEM\ControlSet001\Control\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}\0001", "networkaddress", "12345148E1EB")                         '修改mac物理地址
End Sub