Private Sub cmdUnterordner_Click() ' Ordner-Auswahl-Dialog aufrufen
    Dim oShell As Object
    Dim oFolder As Object
    Set oShell = CreateObject("Shell.Application")
    Set oFolder = oShell.BrowseForFolder(0, "Bitte einen Ordner auswählen", 1)
End Sub

VG

Dirk