rget not understood - produces 0 0

[databyte]

I'm new to forum, have been using QM2 for a while, but in simple tasks. I tried to pass info from Word to QM through the registry. Word updates it perfectly by VBA program. Test program is in code box.
Now I can not get QM2 to read the registry values. Here is what I tried and get Y for sAd and 34 for iPage. When I put a semicoln in front of the forth line ; goto TESTOUT
it prints Did not work.
Help ! Thank you in advance for any input on this. You guys are great.
Jim -- ps I don't know how to put code is color and tabs -- sorry . . .

Code:

Copy      Help

deb
str sAd="Y"
str iPage="34"
goto TESTOUT
rget(sAd "ADVALUE" "HKEY_CURRENT_USER\Andromeda")
rget(iPage "PAGEVALUE" "HKEY_CURRENT_USER\Andromeda")

if sAd = "Y"
    if iPage < 6
        goto A_LOWCOUNT
    else
        goto A_HICOUNT
else if sAd = "N"
    if iPage < 6
        goto N_LOWCOUNT
    else
        goto N_HICOUNT
else out "Did not work"
TESTOUT
out sAd
out iPage
end
A_LOWCOUNT
5.25
A_HICOUNT
15.25
N_LOWCOUNT
8.25
N_HICOUNT
21.25
end

[/list][/code]