Open FolderBrowserDialog

Here the code for open a FolderBrowserDialog without using FolderBrowserDialog Control:

Dim folderbrowse As New FolderBrowserDialog
If folderbrowse.ShowDialog = DialogResult.OK Then
   TextBox1.Text = folderbrowse.SelectedPath
End If