Dim fbd As New FolderBrowserDialog
        fbd.RootFolder = "C:\"
        fbd.ShowNewFolderButton = False
        fbd.Description = "Wählen Sie ein Verzeichnis aus"
        If fbd.ShowDialog() = Windows.Forms.DialogResult.OK Then
            lblVerzeichnis.Text = fbd.SelectedPath
        End If

Imports Microsoft.Win32
 
Private Sub MusterVorlagenToolStripMenuItem_Click(sender As System.Object, e As _
  System.EventArgs) Handles MusterVorlagenToolStripMenuItem.Click
 
        Dim MusterPfad As String = ""
 
        Dim str As String = "Wählen Sie einen Muster-Ordner," & vbCrLf
        FolderBrowserDialog1.Description = str
        FolderBrowserDialog1.ShowNewFolderButton = False
 
        Dim MeinKey As RegistryKey
        Dim TemplatesPath As String
 
        ' Einen Registryzweig zum lesen öffnen 
        MeinKey = Registry.CurrentUser.OpenSubKey( _
          "Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell" & _
          "Folders")
        ' Diverse Testschlüssel auslesen 
        TemplatesPath = MeinKey.GetValue("Templates", "")
        ' Den Registryzweig schließen 
        MeinKey.Close()
 
 
        ' Einen Registryzweig zum Schreiben öffnen 
        MeinKey = Registry.CurrentUser.OpenSubKey( _
          "Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell" & _
          "Folders", True)
        ' Diverse Testschlüssel anlegen 
        MeinKey.SetValue("Templates", Muster_Path)
        ' Die angelegten Testschlüssel wieder löschen 
        'MeinKey.DeleteValue("Stringschlüssel")
        ' Den Registryzweig schließen 
        MeinKey.Close()
 
 
        FolderBrowserDialog1.RootFolder = Environment.SpecialFolder.Templates
        FolderBrowserDialog1.SelectedPath = Muster_Path
        FolderBrowserDialog1.ShowDialog()
        MusterPfad = FolderBrowserDialog1.SelectedPath
 
        ' Einen Registryzweig zum Schreiben öffnen 
        MeinKey = Registry.CurrentUser.OpenSubKey( _
           "Software\Microsoft\Windows\" _
           & "CurrentVersion\Explorer\User Shell Folders", True)
        ' Diverse Testschlüssel anlegen 
        MeinKey.SetValue("Templates", TemplatesPath)
        ' Die angelegten Testschlüssel wieder löschen 
        'MeinKey.DeleteValue("Stringschlüssel")
        ' Den Registryzweig schließen 
        MeinKey.Close()
 
 
    End Sub

    Public Function SelectFolder(rootFolder As [String], title As [String], _
                         ByRef selectedPath As [String]) As Boolean
 
        Dim shellType As System.Type = Type.GetTypeFromProgID( _
          "Shell.Application")
        Dim shell As Object = Activator.CreateInstance(shellType)
 
        Dim result As Object = shellType.InvokeMember("BrowseForFolder", _
            System.Reflection.BindingFlags.InvokeMethod, _
            Nothing, shell, New Object() {0, title, 0, rootFolder})
 
        If result Is Nothing Then
            selectedPath = ""
            Return False
        Else
            Dim sb As New System.Text.StringBuilder()
 
            While result IsNot Nothing
                Dim folderName As String = result.[GetType]().InvokeMember _
                        ("Title", System.Reflection.BindingFlags.GetProperty, _
                         Nothing, result, Nothing).ToString()
 
                sb.Insert(0, [String].Format("{0}\", folderName))
 
                result = result.[GetType]().InvokeMember _
                    ("ParentFolder", _
                    System.Reflection.BindingFlags.GetProperty, _
                     Nothing, result, Nothing)
            End While
 
            selectedPath = sb.ToString()
 
            selectedPath = System.Text.RegularExpressions.Regex.Replace _
                (selectedPath, "Desktop\\Computer\\.*\(\w:\)\\", _
                rootFolder.Substring(0, 3))
            Return True
        End If
    End Function

   Dim selectedpath As String = ""
 
   If SelectFolder("C:\Daten", "Dialogtitel", selectedpath) Then
      MsgBox("Gewählter Pfad: " & selectedpath)
   Else
      MsgBox("Abbruch")
   End If