Permitir al usuario escoger una carpeta

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
    FolderBrowserDialog1.Description = "Escoja una carpeta"
    If FolderBrowserDialog1.ShowDialog(Me) = DialogResult.OK Then
        MessageBox.Show(Me, _
                    "Ha escogido " + FolderBrowserDialog1.SelectedPath, _
                    "Carpeta", _
                    MessageBoxButtons.OK, _
                    MessageBoxIcon.Information)
    End If
 
End Sub