Devi usare la FolderBrowserDialog.

codice:
Dim fbd As New FolderBrowserDialog
fbd.RootFolder = Environment.SpecialFolder.Desktop 'Mostra la cartella principale del controllo
If fbd.ShowDialog = DialogResult.Ok Then
 textBox1.Text = fbd.SelectedPath
End If