If Me.lstSelectedFiles.ListCount > 0 Then
    'loop through selected files
    For i = 0 To Me.lstSelectedFiles.ListCount - 1
        Selection.InsertFile FileName:=Me.lblFilePath.Caption & "" & Me.lstSelectedFiles.List(i), Range:="", _
            ConfirmConversions:=False, Link:=False, Attachment:=False
    Next
    Selection.TypeBackspace 'remove last page break
Else
    MsgBox "You must add at least one file to the selected files list", vbCritical
End If
Unload Me