Visual Basic.NET - seleccionar carpetas de ruta especifica

buenas tardes que tal, estoy intentando que al colocar este codigo en un boton llamado seleccionar
me despliege una ventana pero quiero que solo me aparescan las carpetas que se encuentran en la ruta
c:\principal




Dim Folder As New FolderBrowserDialog

With Folder
.RootFolder = Environment.SpecialFolder.Desktop

.SelectedPath ="c:\principal"


If .ShowDialog = DialogResult.OK Then
txtNomProyecto.Text = .SelectedPath
txtNomProyecto.Text = System.IO.Path.GetFileNameWithoutExtension(txtNomProyecto.Text)
End If
End With


pero me esta dejando las opciones abiertas a que seleccione otras carpetas que no se encuenten dentro de
c:\principal

MAndame tu email y si necesitas ayuda para algun sistema. nos pondremos en contacto