Function fntSeleccionaCarpeta(Optional strTitulo As String = "", Optional strInitialFolder As String = "") As String

    ' Función que selecciona una carpeta y devuelve el Path entero
    
    Dim varFile             As Variant
    Dim fDialog             As Object
    Const msoFileDialogFolderPicker = 4

    ' Seleccionamos el fichero
    Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)

    With fDialog
        .AllowMultiSelect = False
        If strTitulo <> "" Then
            .Title = strTitulo
        Else
            .Title = "Seleccionar carpeta"
        End If
        .InitialFileName = strInitialFolder
        If .Show = True Then
            For Each varFile In .SelectedItems
                fntSeleccionaCarpeta = varFile
            Next
        Else
            ' el usuario ha cancelado la selección del fichero
            fntSeleccionaCarpeta = ""
            Exit Function
        End If
    End With

End Function

Dim fd As Object
Dim varsel As Variant
    
    Set fd = Application.FileDialog(msoFileDialogSaveAs)
    
With fd
        .Title = "Exportar a archivo XML"
        .AllowMultiSelect = False
        .InitialFileName = "Prueba"
        
If .Show = True Then
        
            For Each varsel In .SelectedItems
                var1 = varsel & ".xml"
                var2 = varsel & ".xsd"
                
                Application.ExportXML acExportQuery, "CTIncidenciasTragsa", var1, var2

            Next varsel

End If
End With