Sub getMZ_ALL()
Dim sLine$, Str$
Dim fso As Object, txt As Object, txt2 As Object    
   Set fso = CreateObject("Scripting.FileSystemObject")
    Set File = fso.GetFile("C:\Users\adm\AppData\Roaming\MZTools Software\MZTools3\MZTools3VBA.ini")
    Set TextStream = File.OpenAsTextStream(1)
   
While Not TextStream.AtEndOfStream
    sLine = TextStream.ReadLine
    If InStr(sLine, "CODE_TEMPLATE_TEXT") > 0 Then
    Str = sLine & vbCrLf    
        Do While Not TextStream.AtEndOfStream
                Str = Str & TextStream.ReadLine & vbCrLf                
        Loop
    End If
Wend
TextStream.Close
'Debug.Print Str
Set txt2 = fso.CreateTextFile(ThisWorkbook.Path & "\CODE_TEMPLATE_TEXT_ALL.txt")
txt2.Write Str
                
'MsgBox Str
End Sub

Sub getMZ_Split()
Dim sLine$, Str$, i%, f$
Dim fso As Object, ts As Object, txt2 As Object

Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next: fso.deleteFolder ThisWorkbook.Path & "\codes " & Date
fso.CreateFolder ThisWorkbook.Path & "\codes " & Date: On Error GoTo 0    

Set File = fso.GetFile("C:\Users\adm\AppData\Roaming\MZTools Software\MZTools3\MZTools3VBA.ini")
Set ts = File.OpenAsTextStream(1)       'TextStream
    
f$ = 0: i = 0
Do While Not ts.AtEndOfStream
    sLine = ts.ReadLine
    If InStr(sLine, "CODE_TEMPLATE_TEXT") <> 0 And Len(sLine) < 25 Then
        
        'On Error Resume Next
         If Not txt2 Is Nothing Then
         txt2.Close 'Close old text file
         i = i + 1
         End If
         
        Set txt2 = fso.CreateTextFile(ThisWorkbook.Path & "\codes " & Date & "\_" & f & ".txt")
        txt2.Write Str
        
        f = sLine: Str = sLine & vbCrLf
    
    ElseIf InStr(sLine, "CODE_TEMPLATE_TEXT") <> 0 And Len(sLine) > 26 Then
            f = f: Str = Str & sLine & vbCrLf
    Else: f = f: Str = Str & sLine & vbCrLf
    End If
Loop
ts.Close
Kill ThisWorkbook.Path & "\codes " & Date & "\_0.txt" 
MsgBox i & " txt files ", 64, "Written" 
End Sub  

Sub MZ_codes()
'INI-файлы - это обычные текстовые файлы, предназначенные для хранения настроек программ.
Dim FilePath$
    FilePath$ = "C:\Users\adm\AppData\Roaming\MZTools Software\MZTools3\MZTools3VBA.ini"
    IniRead (FilePath$)
End Sub

Function IniRead(FName As String) As Boolean
Dim a
Dim iText As String
     
Open FName For Input As #1
iText = Input(LOF(1), #1)
Close #1
a = Split(iText, "[CODE")
For i = 1 To UBound(a)
    f = Split(a(i), vbCrLf)(0)
    Open sPath & ThisWorkbook.Path & "\CODES" & "\_[CODE" & f & ".txt" For Output As #1
    'Папка CODES должна быть создана в директории файла с данным макросом
    Print #1, "[CODE" & a(i);
    Close #1
Next
End Function