Specified folder path to select file path

The question I have is, I used the following code for the user to use a commandbutton to select a specific folder for a file.

Sub SelectFolder()
    Dim diaFolder As FileDialog

    ' Open the file dialog
    Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
    
    diaFolder.AllowMultiSelect = False
    diaFolder.Show

    ActiveSheet.Range("B5") = diaFolder.SelectedItems(1)

    Set diaFolder = Nothing
End Sub

I want to use this folder path to re-open windows explorer to that path to allow a user to select the file they want to use and put the file path into the cell below it.

It may sound over complicated in my method, but for my purposes, I need it to function this way. I don't have any solid code besides that, and I wanted to see if this was possible.

Thank you!