读取注册表的问题

我现在已经成功写了注册表，可是读取不行，读的值老是空串。
我的程序如下：
Public Function g_cmdQueryValue() As Integer
   
    Dim hKeyMyKey As Long
    Dim lResult As Long
    Dim msg, response
   
    '打开注册表项
    lResult = RegOpenKeyEx(HKEY_CURRENT_USER, "Software\mykey", 0, KEY_ALL_ACCESS, hKeyMyKey)

    If lResult = ERROR_SUCCESS Then
        
        
      
        g_cmdQueryValue = RegQueryValueEx(hKeyMyKey, "TestValue", 0, REG_SZ, szValue, Len(szValue))
        '关闭注册表项
        RegCloseKey (hKeyMyKey)
    Else
        g_cmdQueryValue = 1
    End If
   
End Function
请高手指教，谢谢！