This one is pretty simple.
Dim FBD As New System.Windows.Forms.FolderBrowserDialog
Dim FBDResult As New System.Windows.Forms.DialogResult
FBDResult = FBD.ShowDialog
If (FBDResult = DialogResult.OK And Not String.IsNullOrWhiteSpace(FBD.SelectedPath)) Then
FBDPath = FBD.SelectedPath
Else
FBDPath = ""
End If
Arguments:
Simple as that, now FBDPath has the path selected in the dialog.