Finding next Test set and sub folder from a parent folder in QC Test Lab

Hi,
I am trying to extract sub folders(not all children folders) along with Test sets(not all children test sets, only next test set) from a parent folder in QC test Lab.

Lets suppose there are 2 sub folders and 1 test set in a Parent folder in QC:

  - Parent Folder1
      - Sub folder1
      - Sub folder2
      - Test Set

Using the below code i am able to extract the subfolders only not test sets:

Set TsetMgr = UserForm9.QCConnection.TestSetTreeManager  'object required
Set Root1p = TsetMgr.Root
Set SubNodesRoot = Root1p.SubNodes()
For rp = 1 To SubNodesRoot.Count
c1p = SubNodesRoot.Item(rp)
MsgBox(c1p)  ' SubFolder1 and Subfolder2 values are displayed.
Next

My only problem now is i am not able to extract Test Sets along with subfolders from a parent folder.

Can anyone please help me find this. Thanks.