Private Sub cmd_sc1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmd_sc1.Click
 
    Using Fld As New FolderBrowserDialog
 
        Fld.ShowNewFolderButton = True
        Fld.Description = "Erster Suchpfad - Hier sollten die meisten zu" & _
          "suchenden Dateien liegen und es sollten nur wenig Unterordner darin" _
          & _
          "sein. Je weniger es sind desto schneller läuft die Suche!"
 
        If sc1_txt.Text = "" Then
            Fld.SelectedPath = "C:"
        Else
            Fld.SelectedPath = sc1_txt.Text
        End If
 
        If Fld.ShowDialog() = DialogResult.OK Then 
            sc1_txt.Text = Fld.SelectedPath
        End If
    End Using
End Sub