Create dialog box for Excel

When I create a button and apply the following code to the button, the button successfully uploads the file to my worksheet. However, if I had three files that I wanted to upload on the form (three browse buttons), how would I code each button, so that after a file was selected for upload, it would be held in queue until I press an "OK" button at the bottom of the form.

Private Sub CommandButton1_Click()
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim Sheet As Worksheet
Dim PasteStart As Range

Set wb1 = ActiveWorkbook

'Set Sheet Name
Set PasteStart = [NAME!A1]

FileToOpen = Application.GetOpenFilename _
(Title:="Please choose a Report to Parse", _
FileFilter:="Report Files *.xls (*.xls),")

If FileToOpen = False Then
    MsgBox "No File Specified.", vbExclamation, "ERROR"
    Exit Sub
Else
    Set wb2 = Workbooks.Open(Filename:=FileToOpen)
    
       For Each Sheet In wb2.Sheets
        With Sheet.UsedRange
            .Copy PasteStart
            Set PasteStart = PasteStart.Offset(.Rows.Count)
        End With
    Next Sheet

End If

    wb2.Close

 
End Sub