Dim path As New IO.DirectoryInfo("C:\testverzeichnis")

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
        If FolderBrowserDialog1.ShowDialog() = _
        System.Windows.Forms.DialogResult.OK Then
            pfad = FolderBrowserDialog1.SelectedPath
            Label1.Text = pfad
        End If