Sub x()

Dim strFolder As String, strFileName As String
    Dim strNewFolder As String, strNewFileName As String
    Dim wb As Workbook
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        If .Show = 0 Then
            Exit Sub
        End If
        strFolder = .SelectedItems(1)
    End With
.....
end sub

Sub CheckAllFiles()
    Dim BazaWb As Workbook     
    Dim iTempWb As Workbook   
    Dim iTempFileName As String
    Dim iPath As String       
    Dim iNumFiles As Long      
    Dim iWrongFiles As Long  
    Dim iRightFiles As Long   
    Dim sFolder As String     

    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
        .Calculation = xlManual
        Set BazaWb = ThisWorkbook
        
        iPath = BazaWb.Path & "\"
        With .FileDialog(msoFileDialogFolderPicker)
            .Title = "Выберете папку"
            .InitialFileName = iPath
            If .Show = False Then Exit Sub
            iPath = .SelectedItems(1)
        End With
        iPath = iPath & IIf(Right(iPath, 1) = Application.PathSeparator, "", Application.PathSeparator)
....
end sub

Sub CheckAllFiles()
x

    Dim BazaWb As Workbook     
    Dim iTempWb As Workbook     
    Dim iTempFileName As String
    Dim iPath As String        
    Dim iNumFiles As Long     
    Dim iWrongFiles As Long    
    Dim iRightFiles As Long      '

    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
        .Calculation = xlManual
        Set BazaWb = ThisWorkbook
        
        iPath = strFolder
        iPath = iPath & IIf(Right(iPath, 1) = Application.PathSeparator, "", Application.PathSeparator)
....
end sub