Private Sub Button1_Click(ByVal sender As System.Object, _
       ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim fbd As New Windows.Forms.FolderBrowserDialog
        With fbd
            .Description = "Bitte wählen Sie einen Ordner (für was auch immer)"
            .ShowNewFolderButton = False
            .RootFolder = Environment.SpecialFolder.MyDocuments
            If .ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub
            MsgBox(.SelectedPath & " ist gewählt worden")          
        End With
        fbd.dispose()
end sub