List All Subfolders Up To A Certain Layer

I am trying to use VBA to list out subfolders within a folder. I Googled already and find some codes.

Code:
Option ExplicitPrivate iColumn As Integer

Sub NowRun()
Dim MasterPath As String
MasterPath = Range("B1").Value
TestListFolders (MasterPath)

[Code] .....

As shown above, these codes basically would list out ALL subfolders (or sub-subfolders, sub-sub-subfolders...).

I need some modifications to the codes to achieve the followings:

1) Limit to 3 layers of subfolders only, and ignore all subfolders after Layer3:
MasterPathLayer1Layer2Layer3

2) Show the full folder path on a cell next row, no need to divide into several columns:

I sort of know what the codes are doing, but I don't know how to stop the loop as I am new to VBA.