千山暮雪2分集剧情:我想读写注册表中的一个值(用API)，没有结果，帮我看看程序有没有错误？

'API函数声明部分
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public 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
Public 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
'程序部分
Function sysmc()
Dim readKey As Long
Dim KeySz As String
Dim jieM, szlen As Long
KeySz = Space(128)
sysmc = RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon ", readKey)
RegQueryValueEx ByVal readKey, ByVal "AltDefaultDomainName", ByVal 0, REG_SZ, ByVal KeySz, szlen
Debug.Print jieM, sysmc, "1" & Left(KeySz, szlen) & "1", szlen
End Function
'结果部分
call sysmc
0 11 0

说明:我是在Access的模块中调用的过程