Any ideas how I can get a menu name from an ext file's menu resource?

I've tried the following without success:

extResfileRef = fn openrfperm(fName$, fVol, _fsRdPerm)
long if extResFileRef <> -1
    menuCount = FN COUNT1RESOURCES (_"MENU")
        FOR m = 1 to menuCount
            menuH = FN GET1INDRESOURCE (_"MENU", m)
            LONG IF menuH
                GETRESINFO (menuH, rsrcnum%, rsrctype&, rsrcname$)
                long if rsrcnum% = 600

                    /*
                    I tried this toolbox call but it only works on
                    local menu items, not external menu names.
                    */

                    GetMenuItemText (menuH, 0, gMenuName$)

                end if
            end if
        next m
    closeresfile(extResFileRef)
end if


TIA
Bernie