Access Folder picker save location

Question

Good morning. Below is an example of my code, I'm trying to get my exported files to be saved in the location I select in the dialog box.

Sadly for some reason the files are saving in the parent folder instead of the folder I'm selecting.

 Dim vFile As String

 With Application.FileDialog(msoFileDialogFolderPicker) 'open Dialog box to select where to save files

         .Title = "Select Folder to Export"

          If .Show Then

             vFile = .SelectedItems(1)

        End If

     End With

'more code here

With xlBook

    .SaveAs FileName:=vFile & FacName

Answer 1

Never mind, made it work with the following:

 Dim vFile As String

 With Application.FileDialog(msoFileDialogFolderPicker) 'open Dialog box to select where to save files

         .Title = "Select Folder to Export"

          If .Show Then

             vFile = .SelectedItems(1) & ""

         End If

     End With

'more code here

With xlBook

    .SaveAs FileName:=vFile & FacName