How to get all the sub folders under a directory vb6

[isnoend07]

Under this folder
mstrOwnerFolder holds: C:\Documents and Settings\All Users.WINDOWS\Documents\RoofCalculator\Williams 1247 RiverBend rd

C:\Documents and Settings\All Users.WINDOWS\Documents\RoofCalculator\Williams 1247 RiverBend rd\Roofing Bids
C:\Documents and Settings\All Users.WINDOWS\Documents\RoofCalculator\Williams 1247 RiverBend rd\Fencing Bids
C:\Documents and Settings\All Users.WINDOWS\Documents\RoofCalculator\Williams 1247 RiverBend rd\LanndScaping Bids
C:\Documents and Settings\All Users.WINDOWS\Documents\RoofCalculator\Williams 1247 RiverBend rd\Gardner Bids
C:\Documents and Settings\All Users.WINDOWS\Documents\RoofCalculator\Williams 1247 RiverBend rd\New Gutter Bids
I am trying to get these sub folders
Roofing Bids
Fencing Bids
LanndScaping Bids
Gardner Bids
New Gutter Bids
Had a problem with FSO few yrs ago so i would rather not use it
Tried this to no avail

Sub AddFoldersToCbo()
Dim MyFile, MyPath, MyName
MyPath = mstrOwnerFolder
MyName = Dir(MyPath, vbDirectory)
Do While MyName <> ""
      If MyPath = vbDirectory Then
        Debug.Print MyName
   End If
   MyName = Dir
Loop
End Sub

how to do this ?