'###Ordner-Auswahl-Dialog aufrufen-----------------------------------
Public Sub cmdSV_Click()
Dim oShell As Object
Dim oFolder As Object
    Set oShell = CreateObject("Shell.Application")
    Set oFolder = oShell.BrowseForFolder(0, "Bitte einen Ordner auswählen", 1)
    If Not oFolder Is Nothing Then
        TextBox1.Value = oFolder.Self.Path
    End If
End Sub

Public Sub cmdSV1_Click()
    If Not oFolder Is Nothing Then
        TextBox2.Value = oFolder.Self.Path
    End If
End Sub

VG

Dirk