RegQueryValueEx problem

keeps giving me a 0 for any value that I try to get.
my code looks like this, what am I doing wrong
r = RegOpenKey(Hkey, strPath, keyhand)
lResult = RegQueryValueEx(keyhand, strValue, 0&, lValueType, ByVal 0&, lDataBufSize)
If lValueType = REG_SZ Then
strBuf = String(lDataBufSize, " ")
lResult = RegQueryValueEx(keyhand, strValue, 0&, 0&, ByVal strBuf, lDataBufSize)
If lResult = ERROR_SUCCESS Then
intZeroPos = InStr(strBuf, Chr$(0))
If intZeroPos > 0 Then
getstring = Left$(strBuf, intZeroPos - 1)
Else
getstring = strBuf
End If
End If
End If
r = RegCloseKey(keyhand)

What values are you pssing to the RegOpenKey function?

Please make replies to thread. Also, please address related follow-up questions in the same thread so people can find them more easily.

__________
HOOOaaaaa! Semper Fi!