Подсчитать количество папок в определенной директории - VB

Формулировка задачи:

Вот такой код пытаюсь применить к подсчету папок в папке 1, получается какая та хренота, помогите если кто может. Спасибо!

Private Sub Command1_Click()
Dir1.Path = "C:\1"
For a = 0 To Dir1.ListCount - 1
    Dir1.Path = Dir1.List(a)
    For b = 0 To Dir1.ListCount - 1
        List1.AddItem Dir1.List(a) '& "" & Dir1.List(b)
    Next
Next
Text3.Text = List1.ListCount
End Sub

Решение задачи: «Подсчитать количество папок в определенной директории»

textual
                            Листинг программы 
                        

                            Function GetFolders&(ByVal sDir$, lst As ListBox)
    Dim s$, L&
    If Right$(sDir,1) <> "" Then sDir = sDir & ""
    s = Dir$(sDir & "*", vbDirectory)
    L = 0
    lst.Clear
    While s <> ""
        If s <> "." And s <> ".." Then
            lst.AddItem sDir & s
            L = L + 1
        End If
        s = Dir$()
    Wend
    GetFolders = L
End Function
 
'ИСПОЛЬЗОВАНИЕ
N = GetFolders("c:\1", List1)
' List1 - ListBox, в котором будут имена папок
' N - сколько получилось папок
                        