How to write VBA code for finding subfolders under folders in QC under Test Plan ?

Hi

I have subfolders under folder in QC. For Example

Subject -> Folder A

Subject -> Folder B

Folder A -> Floder C -> Folder D

Folder B -> Folder E -> Folder F

Folder D -> Folder G -> Folder H

Folder H-> Folder I-> Folder J

Can anyone please help me with VBA code to traverse through all these folders ?

thanks