Select Folder VBA

Sub SeleccionarRuta()
    Dim SelFolder As FileDialog
    Dim Ruta As String
    Set SelFolder = Application.FileDialog(msoFileDialogFolderPicker)
    With SelFolder
        .Title = "Select A Target Folder"
        .AllowMultiSelect = False
        If .Show <> -1 Then Exit Sub 'Cancel
        Ruta = .SelectedItems(1) & "\"
    End With
    MsgBox "La ruta seleccionada es: " & Ruta
End Sub