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

VG

Dirk