Sub readCSV()
    Dim FolderPath As String, strNextLine As String
    Dim Sh As Worksheet
    Set Sh = ActiveSheet
    FolderPath = GetFolderPath
    If FolderPath = "" Then Exit Sub
    Item = Get_Item(FolderPath)
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    LastRow = 1
    For n = 0 To UBound(Item)
        Set objTextFile = objFSO.OpenTextFile(Item(n), 1)
        Do Until objTextFile.AtEndOfStream
            strNextLine = objTextFile.ReadLine
            If strNextLine <> "" Then
             ZX = Split(strNextLine, ";")
            If UBound(ZX) > 7 Then
                If (InStr(1, ZX(6), "Не решено", vbTextCompare) > 0 _
                    Or InStr(1, ZX(6), "Закрыто", vbTextCompare) > 0) _
                    And (InStr(1, ZX(8), "Москва", vbTextCompare) > 0 _
                         Or InStr(1, ZX(8), "Московская область", vbTextCompare) > 0 _
                         Or InStr(1, ZX(8), "Тверская область", vbTextCompare) > 0) Then
                    LastRow = LastRow + 1
                    Sh.Range("a" & LastRow).Resize(1, UBound(ZX) + 1) = ZX
                End If
              End If
            End If
        Loop
        objTextFile.Close
        Set objTextFile = Nothing
    Next
    Set objFSO = Nothing
End Sub