Set SubjRoot = TreeMgr.TreeRoot("Subject")
k = SubjRoot.Count
For s = 1 To SubjRoot.Count ' Nodes under Subject : 3
Set ChildNode = SubjRoot.Child(s) ' Names of Nodes under Subject
c1 = SubjRoot.Child(s).Name
-------------------------------
The above code could help you extract folders under Subject in Test Plan.