@mac_shinobi depends how snazzy you want it.

If you want the easiest and basic way, just add a count to the loop for showing subfolders.

Set FSO = CreateObject("Scripting.FileSystemObject")
ListMyStuff FSO.GetFolder("C:\test"), 2 

Sub ListMyStuff(Folder, HowManySubFolders)
    If HowManySubFolders > 0 then
        For Each Subfolder in Folder.SubFolders
                HowManySubFolders  = HowManySubFolders -1
            ListMyStuff Subfolder, HowManySubFolders 
    End if
End Sub
So as it's doing the subfolders it'll count up, and then break out and do a recursive search of the next folders etc. (2 = "main level" + 1 sub etc)

If you want the snazzier way you can always do stuff like breaking filepaths down and counting \'s etc, or checking child/parent links etc.