Dim NameOfFiles(2) As String
Dim PathOfFile()

Private Sub Back_Click()
    Me.Hide
    Choose.Show
End Sub

Private Sub ChooseFiles_Click()
    Dim i As Integer
    PathOfFiles = Application.GetOpenFilename(",*.csv", , "Choose file", , True)
    If UBound(PathOfFiles) = 2 Then
    NameOfFiles(1) = Mid(PathOfFiles(1), InStrRev(PathOfFiles(1), "\") + 1)
    NameOfFiles(2) = Mid(PathOfFiles(2), InStrRev(PathOfFiles(2), "\") + 1)
    PathOfFile = PathOfFiles
    Else: If UBound(PathOfFiles) = 1 Then NameOfFiles(1) = Mid(PathOfFiles(1), InStrRev(PathOfFiles(1), "\") + 1)
    End If
    InAppEvents.Caption = Mid(NameOfFiles(1), 1, 53) + "..."
    Fraud.Caption = Mid(NameOfFiles(2), 1, 53) + "..."
End Sub

Private Sub Report_Click()
    Me.Hide
    Dim i As Integer
    i = 1
    While i <= UBound(PathOfFile)
        Set WB = Application.Workbooks.Open(Filename:=PathOfFile(i))
        Sheets().Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
        WB.Close savechanges = False
        i = i + 1
    Wend
    Application.ScreenUpdating = True
End Sub

FromDate.Text = "01." + Format(Date, "mm.yyyy")
FromDate.Value = "01." + Format(Date, "mm.yyyy")
ToDate.Text = Format(Date, "dd.mm.yyyy")

Private Sub FromDate_Change()
End Sub