Vista: Drives me Nuts!

This is seriously doing my head in.

Im running XP alongside VISTA on a Virtualization with MS Virtual PC to test the app.

This is my code, very simple: Read Value Data from Registry. If the len >=1 or = vbNullstring then Skip

Quote:

---

If Len(RGGetKeyValue(theRootKey, regKey & QueryKeys(X), getValues(0))) >= 1 Then GoTo SkipThisOne
If Not RGGetKeyValue(theRootKey, regKey & QueryKeys(X), getValues(0)) = vbNullstring Then GoTo SkipThisOne

MsgBox Len(RGGetKeyValue(theRootKey, regKey & QueryKeys(X), getValues(0)))
MsgBox RGGetKeyValue(theRootKey, regKey & QueryKeys(X), getValues(0))


'''More code


SkipThisOne:

---

Now guess what the MsgBoxes return: 0 & vbNullstring, but yet again it doesnt go to the SkipThisOne label

This works with XP.

'The Exe also has a manifest inserted with Resource Hacker, to allow admin elevation etc...

Hmmm, not sure. Vista is pretty picky about the registry.

Have you thought about setting an intermediate value then evaluating that?

Code:

---

xLength = Len(RGGetKeyValue(theRootKey, regKey & QueryKeys(X), getValues(0)))
If xLength >= 1 Then GoTo SkipThisOne

---

and maybe this will work better....

Code:

---

If IsNull(RGGetKeyValue(theRootKey, regKey & QueryKeys(X), getValues(0)))  Then GoTo SkipThisOne

---

or maybe try an intermediate value here also

Code:

---

If IsNull(RGGetKeyValue(theRootKey, regKey & QueryKeys(X), getValues(0)))  Then TempFlag = True else TempFlag = False

If TempFlag then GoTo SkipThisOne

---

My suggestion:

Code:

---

    Dim sValue As String
    '... ...
    sValue = "" & RGGetKeyValue(theRootKey, regKey & QueryKeys(X), getValues(0))
    If Len(sValue) Then GoTo SkipThisOne
    '... ...
SkipThisOne:

---

Thanx guys but no, no, no... Its still there!!!

Len = 0 but it still goes through when it shouldnt!!