Private Sub cmd_ZielFolder_Click()
Dim StartFile As Variant
StartFile = PlotToBorm1.StatusBar1.Panels(1).Text & "\"
 
Dim oShell As Object
Dim oFolder As Object
 
Set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.BrowseForFolder(0, "Bitte einen Ordner auswählen", 1, _
  StartFile)
If Not oFolder Is Nothing Then
    TB_ZielFolder.Text = oFolder.Self.Path
End If
 
End Sub

VG

Dirk